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PROLOGO 


Este libro pretende ser una iniciación al lengua- 
je BASIC para principiantes. Desarrollamos dicho lengua- 
je haciendo referencia a los distintos dialectos del 
BASIC que se usan para diferentes ordenadores. Estas 
particularidades deben no obstante consultarse en 
el manual propio de cada ordenador. 


Hemos dividido el libro en diez TEMAS. Cada 
uno de ellos consta de una EXPLICACION TEORICA acompaña- 
da de ejemplos para su mejor comprensión. 


Después de cada explicación teórica sigue un 
apartado con EJERCICIOS RESUELTOS para que el lector 
vea diferentes técnicas de programación y de aplicación 
a distintas matertas. 


Al final de cada tema hay unos EJERCICIOS PRO- 
PUESTOS referentes a él. Sólo están las soluciones de 
los que llevan asterisco excepto los de los dos prime- 
ros temas que están integras. 


El primer tema puede omitirse sin que ello dif1- 
culte la comprensión del resto. 


Hemos escrito este libro pensando en los siguien- 
tes fines: 


a) Que sea LIBRO DE TEXTO para los alummos de EATP 
de INFORMATICA de BUP. 


Precisamence este libro es un compendio de las 
expertencias que tenemos en la docencia de esta astgna- 
tura en el INSTITUTO DE BACHILLERATO TORRAS I BAGES 
de Hospitalet de Llobregat. Nuestros alummos nos han 
animado a escribirlo recopilando estas experiencias. 
A ellos debemos la idea y el ánimo para escribirlo. 


En algunos ejercicios del libro no hay que buscar 
otra utilidad que la didáctica. 


b) Que sea también un TEXTO para los alumos de 
ESTUDIOS PROFESIONALES que estudian INFORMATICA en 
las distintas ramas. 


Creemos que les puede ser de utilidad tanto 
las explicaciones teóricas como los ejercicios resuel- 
tos y propuestos. 


Cc) A todas las personas que quieran aprender el 
lenguaje BASIC que es el más utilizado en los ordenado- 
res personales. 


No se necesitan conocimientos prev*os de INFORMA- 
TICA para la comprensión de este libro. 


En los ejercicios siempre que pidamos un progra- 
ma o lo exponemos debe tenerse en cuenta que no es 
único. Todo programa admite variantes que dependen 
no sólo de la capacidad del que lo escribe, sino tam- 
bién de la forma de presentación que se desee. 


Programar es una actividad creativa, la timagi- 
nación y el ingenio del programador ¿juegan en ello 
un papel importante. 


Todo programa admite mejoras. Es frecuente que 
al abordar un mismo problema en días diferentes, el 
propio programador efectúe variantes en su programación. 


Unas veces porque se da cuenta de que pueden evitarse 
algunos pasos y ast tener más memoria disponible en 
su ordenador y otras veces porque la presentación 
del mismo no le parece suficientemente clara o bien 
puede mejorarse. 


Un programa puede darse por acabado cuando ha 
pasado por el proceso de depuración de errores y per- 
feccionamtento. 


La mayoría de los programas expuestos em el 
libro admiten este proceso de perfeccionamiento, que 
en algunos casos hemos evitado para mejor comprensión. 


Téngase en cuenta por otra parte, que a medida 
que se aprenden nuevas sentencias se pueden modificar 
los programas, resultando generalmente más rápidos 
o más vistosos o ambas cosas a la vez, como ocurre 
con problemas repetidos en algunos capítulos. 


Nuestra experiencia en la docencia de las Matemá- 
ticas nos ha podido llevar a poner ejemplos y ejercicios 
sobre temas de Matemáticas. No obstante nos hemos 
esforzado en corregir este punto insertando ejercicios 
referentes no sólo a Matemáticas sino a otras materias 
y también a aplicaciones no escolares. 


Agradecemos a nuestros compañeros de docencta 
todas las observaciones y sugerencias que han tenido 
a bien hacernos durante la elaboración de este libro, 
asímismo agradecemos la labor realizada por la Sra. 
M2 Carmen Berbel en la composición del libro y en 
la realización de los dibujos. 


No hacemos referencia en el libro a las represen- 
taciones gráficas puesto que las posibilidades gráficas 
y métodos de uso dependen de cada modelo. 

Barcelona, Febrero de 1985. 


LOS AUTORES, 
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BREVE HISTORIA DEL ORDENADOR. 
SISTEMAS DE NUMERACION 


1. Breve historia del ordenador 


Una de las necesidades que ha tenido el hombre 
ha sido contar objetos y atribuir guarismos al resultado 
de esta operación. 


No queremos hacer ciencia ficción de cómo nace 
el concepto de número y de cómo evoluciona a través 
de la prehistoria, aunque hay caminos para hacer un 
estudio científico de lo que pudo pasar, por ejemplo 
observar entidades étnicas cuya evolución está aún 
muy atrasada y a partir de este estudio rellenar los 
eslabones que nos separan de estos grupos étnicos. 


Supondremos pues que el hombre ya conoce el concep- 
to de número abstracto y que además realiza operaciones 
con estos números. Escoge una base para contar y podemos 
pensar que ya está utilizando la base diez, lo que 
le ayuda a contar con los dedos de las manos y asi 
utilizar la primera calculadora natural. 


En el momento de hacer operaciones, el hombre busca 
la manera de realizarlas con más rapidez. Lo consigue 
con el ABACO, cuyo fundamento es un conjunto de unas 
piezas ensartadas en varillas, y cuyo uso ha llegado 
hasta nuestros días. Con esta máquina se pueden reali- 
zar con facilidad operaciones de suma y resta. 


ada Ed 


Ábaco 


John NEPER (nacido en 1550) da un paso más en conse-— 
guir rapidez en los cálculos con el descubrimiento 
de los logaritmos. 


Henry BRIGGS (nacido en 1556) escribe las primeras 
tablas de logaritmos para el uso práctico de los mismos. 


Si bien es cierto que el uso de los logaritmos 
da mayor rapidez en el momento de efectuar las operacio- 
nes, sin embargo, no constituyen una ''máquina de calcu- 
lar' propiamente dicha. 


En la misma época, William OUGHTRED (nacido en 
1574) utiliza dos escalas de logaritmos que superponién- 
dolas y deslizándolas una sobre otra efectúa cálculos 
mecánicos con ayuda de logaritmos. Esta pequeña ''máquina 
de calcular'' se conoce como Regla de Cálculo y su 
uso ha sido emormemente difundido hasta llegar las 
máquinas de calcular electrónicas. 


Más tarde, Blaise PASCAL (nacido en 1623), diseña 
la primera máquina de calcular mecánica cuya estructura 
se basa en ruedas dentadas unidas entre sí de forma 
que 10 dientes de la 12 hacen correr un diente de 
la 22y así sucesivamente. Con esta máquina se podía 
sumar y restar. 


Gottfried LEIBNIZ (nacido en 1646) mejoró la máquina 
de PASCAL construyendo otra que además de sumar: y 
restar multiplicaba y dividía. 


Charles BABAGE (macido en 1792) ideó una máquina 
que podía funcionar por medio de fichas períioradas 
y sus proyectos ,son básicos para las calculadoras 
modernas, sin embargo no pudo realizar sus proyectos 
debido a su complejidad técnica. 


A partir de este momento se perfeccionan cada día 
más las máquinas de calcular mecánicas, pero adolecen 
de la complejidad de los mecanismos que tienen que 
usar. 


Hacia 1940 se construyen las primeras máquinas 
de calcular electrónicas. Efectuan las operaciones 
en el sistema binario, que sólo tiene dos símbolos 
Oy1 que en la máquina es: no pasa corriente (0) o 
pasa corriente (1). 


En 1944 se construyó el Mark 1 que era una máquina 
enorme con relés y tubos de vacio. Rápidamente se 
construye el ENIAC que es el principio de la 12 genera- 
ción de ordenadores. Funcionaban con válvulas electróni- 
cas y tenian muchos problemas de calentamiento haciendo 
costoso el mantenimiento. 
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Hacia 1957 las válvulas electrónicas son sustituídas 
por transistores lo que supone un gran salto hacia 
la miniturización y velocidad de los ordenadores. 
Se dice que estos ordenadores forman la 22 generación. 

En la década de los 60 aparecen los ordenadores 
de la 32 generación que sustituyen los transistores 
por circuitos integrados que tienen un tamaño similar 
a los transistores pero pueden contener centenares 
de componentes elementales. 


Actualmente se considera que nos encontramos en 
la 42 generación de ordenadores que utilizan circuitos 
integrados con millares de componentes elementales 
en su interior. 


2. Sistema de numeración. Sistema binario 


En base diez utilizamos diez símbolos: 0,1,2,3,...,9 
(guarismos) que significan cantidades distintas según 
la posición, por ejemplo: 


2521 significa 1+2.10+5.10%+2.107 


En general cuando escribimos hh ... cba significa 
arbeot0rc 10 esto” (i es el número de guarismos 
que hay en h...cba disminuido en una unidad) 


Si sólo utilizamos cuatro guarismos: 0,1,2,3, dire- 
mos que trabajamos en base cuatro. 


Por ejemplo el número 


213, 


significa 3+1.4+2.4* escrito en base diez. 


En general: 


h...cba,, = a + bin + a hóa + h.n” 


escrito en base diez. 
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a) Paso de un número en base n a base decimal 


Dado un número Non para saber cual es su expresión 
en el sistema decimal, mos basta efectuar las operacio- 
nes que expresan dicho número en su forma polinómica. 


Ejemplo 
51462, =2.+ 6.74 4.7% + 1.7% 4 5.7% = 12588 


b) Paso de un número en base 10 a base n 
Para ello basta efectuar divisiones sucesivas por 
dicha base y quedarnos con los restos parciales hasta 


que el último cociente sea menor que n, 


Es decir, si queremos escribir en número 7456 en 
base 8, procederemos de la siguiente manera: 


7456 8 
25 932 8 


16 13 116 8 
0 2 36 14 8 
j 4 4 6 1 
4 ml pi y 
12 cifra 22 cifra 32 cifra 42 cifra 52 cifra 
derecha derecha derecha derecha derecha 
o sea: 


7430: = 1094068 


En caso de utilizar una base n mayor que diez, 
entonces nos auxiliamos de letras. Por ejemplo en 


la base 12 los guarismos empleados para los números 
10 y 11 son las letras a y B. 


c) Paso de un número en base n a otra base m 


Dicho paso se efectúa a través de la base diez, es 


12 


decir, pasamos primero el número en base n a base 
diez y luego por sucesivas divisiones a base m. 


Por ejemplo,.para pasar 12034.,; a base 9 es: 
12034 5 = BA Ted + 0.5? . 2.57 2 is? = 894 
894 
84 ñ o 
cd pa = 
A 
Por lo que 
12034: = 1203 (y 


Para pasar de base 8 (Sistema octal) a base 2 (Sis- 
tema binario) en la práctica es cómodo hacerlo de 
la siguiente manera: 


Se pasa cada cifra del sistema octal a base 2 escri- 
biendo el resultado con 3 cifras (para completar poner 
ceros a la izquierda). El número resultante de juxtapo- 
nerlos es el número en base 2. 


Ejemplo 
1 4 2 1 
001 100 010 001 
De donde: 
1421 ¿y = 1100010001 ,, 


Siguiendo el proceso inverso podríamos pasar del siste- 
ma binario al octal. 


Análogamente se haría para pasar del sistema de 
base 16 (Sistema hexadecimal) al sistema binario, 
en este caso cada cifra del sistema hexadecimal hay 
que escribirlo con cuatro cifras del binario añadiendo 
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a la izquierda los ceros necesarios (ver el ejemplo 1.11.b) 


Ejemplo 


¿En qué sistema de numeración de base x, xEN, 
el número 101 en base diez tiene como expresión 10202., 


En este caso debe verificarse: 


EA ON e + 0.0 + Lx = 101 , 


o sea: 


cuyas soluciones son 13 


Se trata pues de la base 3 


d) Operaciones en una base cualquiera 


Se efectúan siguiendo los mismos métodos que en 
el sistema decimal. 


Ejemplo 
Efectuar la suma 
2305 
10544 
+ 4432 (6 
La solución es 122356 
Ejemplo 
Efectuar el producto 
46315 
Xx 30 
(7 
La solución es 205251 


(7 
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e) Sistema binario 
Se llama así al que tiene como base n=2. 


En este caso todo número consta solamente de los 
guarismos O y 1. 


Ejemplo 


El número 7521 en el sistema binario es: 


7521 - 
15 3760 4 
12 17 1880 . 
01 16 08 e ro 


1 00 00 47 S 
O 0) 230 2 
y GA 03 117 . 
0) 15 
1 


... ed ie Ey 


Es decir: 


1921. PILOL9A LOUDOL 


Si bien la expresión de los números en el sistema 
binario es larga, tiene la ventaja de usar sólo dos 
cifras que pueden simularse por ejemplo en un circuito 
con un 1 si pasa la corriente y por un O si no pasa 
la corriente. Este es precisamente el sistema que 
usa el ordenador para efectuar los cálculos, aunque 
para exponerlos en pantalla nos lo traduzca al sistema 
decimal. 


EJERCICIOS RESUELTOS 


1.1. Escribia el número decimal 124 en base 4. 
Solución 


Efectuando las sucesivas divisiones: 


124 4 
04 31 4 
0) 6) 7 = 
3 1 
De donde: 
124 = 1330, y, 
Xxx 


1.2. Escribia 230/, en base diez 


Solución 


Se tiene: 


1.3. Escribia en base 2 el número 425, ¿ 
Solución 
Pasando a base diez: 


425,6 = de + 2.0 + des = 161 
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Dicho número en base 2 es: 


1 o 5 
0 ho 
' a zp 
161 = 10100001 ¿, 
O sea: 
42536 = 20100001 


1.4. 
E M N S 
El gráfico representa un conductor de 
dos intenmruptornes (M y N); 


comiente en el cual hay 
cuando por la salida (S) pasa corniente se escribe 
1 y cuando no pasa el 0. Si A significa "intewuptor 


abierto" y C "intemuipton cernado"” escribia en base 
10 el número escrito en base 2 que resulta del siguien 


te esquema: 


M N M N MN M N M N M N 
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Solución 


El número escrito en base 2 es: 


100100 


(2 
En base diez: 
1001007 = 0. + 0,2 + 1.2% + 0,2% 4 0,2% + 1.27 = 432 = 
= 36 
Xx xx 


1.5. Efectuar la suma de los siquientes números escri- 
tos en base 8: 


246 y : 1278 
Solución 


246 


+ 1278 


(8 


1.6. Efectuan la resta 1110, > - 1007, > 
Solución 
1110 
(2 
- 1001 ¿, 
101.) 
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1.7. Calcular el producto 345/¿% 235,6 
A 


Solución 


345 
x 235 

3101 
1523 
1134 
140131 


O sea: 


A OL] 


(6 (6 (6 


1.8. Efectuar el cociente 31405: 232 en base 6. 
Solución 


Teniendo en cuenta la siguiente tabla (en base 


6): 
232x1 = 232 
232x2 = 504 
232x3 = 1140 
232Xx4 = 1412 
232Xx5 = 2044 
se tiene: 


31405 
232 114 
420 
232 
1445 
1412 
033 


Por tanto: 
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Cociente: 114 


Resto: 33 


1.9. ¿En qué base se verifica la igualdad: 63+56=141? 
Solución 


Sea x esta base. Para que se cumpla la igualdad 
debe ser: 


Óx +3 + 5x +6 = ye + 4x + 1 


x -—Tx-8=0 


Como debe ser x>0O la base es x=8. 


1.10. Expresar en el númeno 0,6 en base 6 sabiendo 
que está escrito en el sistema decimal. 


Solución 
Se tiene que: 


0,6 = 6/9 = 2/3 


Efectuando la división en base 6 y teniendo en cuenta la 
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tabla: 
3x = 3 
3x2=-= 10 
3x3= 13 
3x4= 20 
da: 
250 3 
10) 0,4 
es decir: 
0,6 = 0% 
kk k 
1.11. Expresar en el sistema binanio los números 
a) 145 g b) 198,6 
Solución 
a) 1 4 5 
001 100 101 
De donde: 
145 g = 1100101, 
b) 1 9 8 
0001 1001 1000 
De donde: 
198.16 = 110011000,, 
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1.12. Expresan 7458 en base 2 pasando previamente 
a base 8. o 


Solución 


18 13 116 8 
Z 52 36 14 8 
4 4 6 1 
Por tanto: 
7458 = 16442 ¿g 
001 110 100 100 010 


Luego 


7458 = 1110100100010,, 
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EJERCICIOS PROPUESTOS 


1. En el sistema de base 6, ¿existe el guarismo 6? 


2. Contestar a las siguentes preguntas dando las res- 
puestas en base 2: 

a) ¿Cuántas manos tenemos? 

b) ¿Cuántos dedos tenemos en una mano? 

c) ¿Cuántos días tiene una semana? 

d) ¿Cuántos meses tiene el año? 


3. Escribir en base diez el número 10011101, 


4. |FEscribir en base 3 el número 10010/, 


5*. Escribir 324 en base 2, 


6. ¿Cuál es la expresión del número 75418 en el sistema 
de base: a) 8; b) 2 ? 


7. Dados los números 346 y 250 en base 7, escribirlos 
en base 2. 


8. Dados los números 475 y 274 en base 8, escribirlos 
en base 4. 
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9. ¿Cuál es la expresión del número 496158 en base 
12? 


10. ¿Cuál es la expresión del número 7585 en el sistema 
de base: a) 6; b) 12 ? 


11. Si a=10, g=11, y=12, escribir en base diez el núme- 


ro ARBBYY y 3 
I 
A 
De ARRE” S 
l, 


El gráfico adjunto representa un conductor de 
corriente en el cual hay los interruptores L,>L,>13+ 
Cuando por la salida (S) pasa corriente se escribe 1 y 
cuando no pasa el O. Si A significa '"'interruptor abier- 
to" y C "interruptor cerrado", escribir en base 10 el 
número escrito en base 2 que resulta del siguiente esque 
ma: 


12. 


1,11, 1, LI, I LI, 1 1,1 1,11, 
A 


1 3 
Ace poca [ca Cc [car | 


1 
AA 


13. Escribir las tablas de sumar y de multiplicar en 
el sistema de base 7. 


+ 101 


14. Efectuar la siguiente suma: 1001 ¿> 2 
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15. Efectuar la siguiente suma: 3214, 5 + 20145 + 3323,5 
Dar el resultado en base 2. 


16. Calcular 1011001, - 1i101., 


17 Calcular 12142 ¿2 - 64354 q 


18. Efectuar el producto 1011101 9 * 110011 
es el. resultado en el sistema decimal? 


o" ¿Cuál 


315 


19. Efectuar el cociente 417429: (8 


20. ¿En qué base se verifica la igualdad: 122x21 = 3222? 


21. ¿En qué base se verifica la igualdad: 143x32 = 5016? 


22. ¿En qué base se verifica la igualdad: 512-404 = 104? 


23. En una cierta base se verifica que 244+567 = 822. 
Hallar en dicha base 371x456. 


24. Resolver la ecuación 7x+18 = 122-5x en base 9. 
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25. Resolver la ecuación 4x+52 = 126-7x en base 8. 


26. Halla- x sabiendo que 546 = 20202, 


27. Hallar x sabiendo que 90 = 10100... 


28. Expresar el número 0,39 en base 6 (con tres decima- 
les). 
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EL ORDENADOR 
SU USO COMO CALCULADORA 


1. Partes de un ordenador 


El ordenador está formado por las siguientes partes: 
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La C.P.U. 


La Unidad Central de Proceso (C.P.U.) 
Memoria ' 


consta de: 


Unidad de Control (U.C.), cuya función es 
distribuir y controlar el trabajo que han 
de realizar otras partes del ordenador. 


Unidad Lógica Aritmética (U.L.A.), cuya fun- 
ción es realizar operaciones aritméticas y 
comparaciones entre los datos. 


La Memoria está formada por: 
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—Memoria R.A.M. (Random Acces Memory). Es la que 
almacena la información dada por el usuario (datos, 
programas,...). Guarda los programas y resultados 
intermedios. El usuario puede modificar el contenido 
de la memoria RAM. En el momento de desconectar 
el ordenador queda borrado todo lo que contenía. 


—Memoria R.O.M. (Read Only Memory). Es una memoria 
fija o sea no alterable por el usuario. En ella 
el fabricante incluye funciones y programas para 
ser utilizados. En el momento de desconectar el 
ordenador no se altera el contenido de la memoria 
ROM. 


El usuario se comunica con el ordenador a través 
de los periféricos, que pueden ser: Periféricos de En- 
trada (teclado, cintas, discos,...) y Periféricos de 
Salida (pantalla, impresora, cintas, discos,...). 


29 


30 


Un esquema general es: 


Periféricos 
de 
Salida 


Periféricos 
de 
entrada 


Memoria 


ORDENADOR 


A los periféricos que sirven para almacenar progra- 
inas y datos que pueden volver a introducirse en el orde- 


nador se les llama Memorias de Masa. 


Le 


Definiciones 


a) 


BILL 


Se llama así a la unidad más pequeña en el lenguaje 
del ordenador y sólo puede tomar dos valores, 


y 1. 


b) 


E) 


d) 
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O Sino pasa dla coniente. 
1 Si pasa la conniente. : 


BYTE 
Se llama así al grupo de 8 bits (octeto) 


KILO-BYTE 10 

Lo forman 1024 = 2 bytes, o sea 8192 bits. La capa 
cidad de memoria de un ordenador viene dada general- 
mente por el número de K-bytes del mismo. 


HARDWARE 

Se designa con este nombre al ordenador como máqui-— 
na. Lo constituyen los componentes fisicos del orde- 
nador. 
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e) SOFTWARE 
Se designa con este nombre a los elementos que for-— 
man parte de la programación: lenguajes, diagramas, 
métodos de programación, etc., que se estudiarán 
en el tema III. 


3. El ordenador. como calculadora 


Para utilizar el ordenador como calculadora (en 
el lenguaje BASIC), basta escribir el mensaje PRINT, 
ya sea con una tecla especial ya sea deletreando la 
palabra, según el modelo de ordenador que se use. 


Así pues, 
PRINT 5+4 


nos dará en la pantalla 9 
PRINT 7%6 


nos dará en la pantalla 42 


Decimos que la pantalla mos dará el resultado, pero 
esto significa que deberá pulsarse la tecla que pone 
en funcionamiento la orden dada al ordenador. Esta tecla 
depende del modelo usado y puede ser: RETURN, EXE, 
ENTER, NEW LINE, etc. 


4. Operadores aritméticos 


Los símbolos que se usan para las operaciones arit- 
méticas son: 
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+ Para la suma 

- Para la diferencia 

Para el producto 

Para el cociente 

Para la potencia 
(también se usa x* y A) 


>—x 


siendo la prioridad de operaciones la siguiente: 


12 La potencia t 


22 El producto y el cociente (* y /) en el orden 
en que estén escritas. 


32 La suma y la diferencia (+ y -) en el orden 
en que estén escritas. 


No olvidemos el uso de los paréntesis para operacio- 
nes combinadas 


Por ejemplo: 3 


Para realizar (4 + NÓ 8)+51 pulsaremos 
PRINT (4 + 3 1 3 x* 16/64 + 8)*51 


El resultado en la pantalla es (después de pulsar 


A 


RETURN O ENTER, etc...): 
956.25 


No mos debe extrañar ver un punto en vez de una 
coma, pues el ordenador separa los decimales por un 
punto, ignorando este significado para la coma. Así 
mismo, el cero se representa por / para diferenciarlo 
de la letra O. Es fácil al principio cometer estos dos 
fallos con lo cual el ordenador nos dará un mensaje 
de error en el caso de equivocarnos. 


Las potencias deben ser de base positiva pues de 
lo contrario también nos daría mensaje de error. Algunos 
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ordenadores calculan potencias de exponente entero y 
base negativa. Nosotros en los ejercicios supondremos 
que no lo hacen. 


Para operar con números muy grandes o muy pequeños 
se utiliza la notación científica (potencias de 10) 


Ejemplos 
1) 24316 E+20. significa 2,316 5 107? 
-9 


2). 1FT43Z E=-9 significa 1,1432 + 10 


También se pueden entrar datos con dicha notación. 


El ¿intervalo numérico de cálculo del ordenador va 
desde 107% hasta 1038, 


5. Funciones Matemáticas 


Las funciones que normalmente nos encontramos en 
el ordenador son: 


= +1 si el argumento es positivo 
SGN: signo | => -l si el argumento es ne.ativo 
= 0 si el argumento es cero 


NOTA: Cuando hablamos del "''argumento' de una función 
nos referimos a la expresión a la que se aplica la fun- 
ción. Por ejemplo: 


PRINT SGN (75 —- 4*x10) 
(sentencia)| | (función) (argumento) 


ABS: valor absoluto (Halla el valor absoluto del argumen 
to) 

INT: parte entera (atención : INT(-2.3) = -3) 

SQR: raíz cuadrada (podríamos escribir también ! (.5) 

EXP: exponencial de base e 

LOG Ó LN: Logaritmo neperiano 
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SIN: seno (dando el argumento en radianes) 
COS: coseno (dando el argumento en radianes) 
TAN: tangente (dando el argumento en radianes) 
ASN: arco seno (el resultado en radianes) 

ACS: arco coseno (el resultado en radianes) 
ATN: arco tangente (el resultado en radianes) 


En algunos ordenadores no están definidas las fun- 
ciones arc sen y arc cos. 


Si en una expresión hay funciones y operaciones 
aritméticas, la prioridad es: 


19 Funciones 
22 Operaciones aritméticas 


Estas funciones se utilizan con el siguiente formato 


PRINT ... (use) 


| | 


función argumento 


Ejemplos 
4 
1) PRINT EXP(4) da como resultado 54.59815 que es e 
4 
2) PRINT EXP 4*x2 da como resultado 109.1963 que es e .2 
3) PRINT EXP(4%*2) da como resultado 298/.958 que es E 
4) PRINT SIN(*)/2 da como resultado / que es 
sen Q 
A de 
Algunos ordenadores no tienen una tecla para el 


número T (Pi). En este caso debe sustituirse (Pi) 


por una aproximación, por ejemplo 3.1415927. (General- 
mente admiten la aproximación de T con menos decimales). 
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5) PRINT SIN(*/2) da como resultado 1 que es 


TT 
sen(5-) = 1 
2 
Puesto que las funciones trigonométricas operan 
con radianes hay que tener en cuenta que: 


n grados equivalen a (n*x/180) radianes 
n radianes equivalen a (nx180/7) grados 


Por lo que si queremos hallar sen 452, pulsare- 
mos: 


PRINT SIN (45*7/180) 
la respuesta en pantalla es: 
D.70710P673 

Por otra parte, si queremos buscar el ángulo corres- 
pondiente a una cierta función trigonométrica, por ejem- 
plo, para hallar x= arc tag y 3/3 en grados, pulsare- 
mos: 

PRINT ATN (SQR (3)/3)*280/x 


la respuesta en la pantalla es: 30 


Evidentemente que si nos ¡interesa el resultado 
en radianes, sobra el factor 180/T. 


6. Simulación de números aleatorios 


En algunos casos interesa que el ordenador nos de 
una serie de número aleatorios, es decir, dados al azar 
como pudiera ser los números de un sorteo o de un juego 
de dados. 
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Esto se consigue con la función RND. Esta función 
da un número x al azar comprendido entre Q y 1 (0<x<1) 


Si nos ¡interesa tener números aleatorios mayores 
nos bastará combinar esta función con el producto. 
Si queremos por ejemplo un número aleatorio n (<n<10) 
bastará pulsar 


PRINT 1% * RND 
RND es una función sin argumento. 


En ocasiones no nos interesa la parte decimal de 
este número aleatorio; pensamos por ejemplo en la 
simulación de un juego de dados donde sólo es posible 
que salgan los números naturales del 1 al 6. En este 
caso nos bastará pulsar 


PRINT 1 + INT (6 * RND) 


que nos dará el resultado pedido, puesto que  6xRND 
nos dará un número al azar entre Q y 6 ((0<n<6). 
Al tomar su parte entera nos quedaremos con un número 
al azar entre Q y 5 (ambos incluidos), por lo que 
al añadirle 1 nos dará un número n: 


1<n<6 


Los números generados por la función RND siguen 
en realidad una cierta secuencia, por esto se les 
llama pseudoaleatorios. 
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EJERCICIOS RESUELTOS 


11.1. Calcular 
42176810 + 234 
229 _ 10247 
Solución 
Debe pulsarse: 


PRINT (42176810+234)/(211P-10247) 


que imprime: 


-4573.0287 
* *k Xx 
11.2. Calcular 
AS 2,3.107 + 4,71.10 + e 9,8.10.* + 5,876.10 
42.107? 9,987.10> = 100 
Solución 


a) Debe pulsarse: 
PRINT (2.3 * 10?5 + 4.71 * 10 1(-2))/(42 * 10 1 (-3)) 


que imprime: 5476191.6 


b) Debe pulsarse: 


PRINT (9.8*x 109 114 + 5.876* 10 15)/(9.987x 1015-1016) 
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que imprime: -7.5384728E+11 
kk * ox 
11.3. Calcular 


] 3 sen 32015" 
da e e 
42,1 


Debe pulsarse: 


Solución 


PRINT ((3 * SIN((32 + 15/60) * 7/18 (42.1 1 3))1 (1/7) 


que imprime: 
diuli33l3 77 


+ 
+ 
+ 


11.4. Calculan: al sen 48%,  b) tag 73 


Solución 
a) Debe pulsarse: 
PRINT SIN (48/1809) 
que imprime: 
V.74314483 
b) Debe pulsarse: 
PRINT TAN (73 * 7/180) 


que imprime: 
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3.27/P8526 


11.5. Observar el comportamiento del ordenador al inten- 


tan calcular 
/ 416,12-516,8? 
6,31 


Solución 


Debe pulsarse 
PRINT SQR((416.1 1? 2 - 516.8 1 3)/6.31) 


que da un mensaje de error, puesto que el radicando 
es negativo. 


* 
* 
* 


11.6. ¿Qué impriminía un ordenador al pulsar 
PRINT 13 + ABS (1fP-4-15) ? 


Solución 


La expresión dada equivale a: 
13 + |10-4-15] = 13+|-9| = 13 + 9 = 22 


Por tanto imprimiría: 


* 
* 
+ 


11.7. ¿Qué impriminta un ordenador al pulsar 
PRINT SGN(16) ? 
Solución 


La expresión dada equivale al signo de 
tanto imprimiría 1, puesto que la función da: 


1. 51 Xx>0 

-1 si x<O0 

O. sl X=0 
Xxx 


41 


16, por 


11.8. ¿Qué debería escribiase para que el ordenador nos 


dé un número natural aleatorio del 1 al 50 ? 


Solución 
Debería pulsarse: 
PRINT INT (RND * 5M) + 1 


ya que la función RND nos da un número n: 
al multiplicar por 50 dará un número  m: 
La función INT nos dará un número natural s: 
Al sumarle 1 dará un número t: 


O<£n< 1 
O<m<50 
O<s<50 
1<t<50 
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EJERCICIOS PROPUESTOS 


29. Explicar qué diferencia hay entre la memoria ROM 
y la memoria RAM. 


30. ¿A qué se llaman memorias de masa? 


31. Contestar a las siguientes preguntas: 
a) ¿Cuál es el contenido de la memoria ROM? 
b) ¿Se pueden almacenar datos en ella? 


32. Al desconectar en ordenador, ¿se borra toda la 
memoria del mismo? 


33. Cuando en ¡informática se habla de ''HARDWARE" se 

refiere: 

a) A que el programador ha estudiado en HARVARD 

b) Al soporte físico del ordenador 

c) Al conjunto de programas que puede ejecutar el orde- 
nador. 

d) A la marca del ordenador. 

Razonar la respuesta. 


34. Calcular: 
a) (1275,8+9876,56)-(471,9-2,456) 
b) (987,4-876,34)- [(19830-98387456)+(198-34)]) 
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Je. Cateular? 


5,568095.124,6 E 4,9846?-987,65 
E 1357,47 136,92+47183,83 


36. Calcular: 


y 4 / 237,5 - 48,25 ls 12,62 2 
5 (124,1)2+7,8 24,5 - 3,4 


37, Calcular: 
a) (12300000000,2*0) «7 
b) (130000000-314) y 59 


38. Pasar a grados sexagesimales: 
a) 419 14' 24" 
DJ 1299.29 GS 


39. Comprobar que 


sen?150211531 + cos215021153" = 1 


40. Una ruedecilla gira uniformemente a 50 revoluciones 
por minuto, su radio mide R=3,15 cm. Calcular: 
a) El periodo (T = tiempo que tarda en dar una vuelta) 
b) La pulsación (w= 27/T) 
c) La frecuencia (N = 1/T) 
d) La velocidad lineal (v =wR) 
> A 2 
e) La aceleración centripeta Ca = Y 18) 


41. Hallar el ángulo a del primer cuadrante tal que: 
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a) sen a = 0,7543 
b) cos a 0,3427 
c) tag a 2,4896 


42. Hallar: 
a) sen (8/7) 
b) tag (6/5) 


43. Hallar el angulo a del primer cuadrante tal que: 
a) sen a = 0,9835476 

b) tag a = 5,475908 

e) cos a.= 0,4857 


S 
44. Dado el triángulo ABC del gráfico: 


B 


b = 210,7 ca C 


comprobar que A+B+C = 1800 aplicando el teorema del 
coseno (al = b2+c2-2bc cos A). 


43. Calcular: a) T : b) e” 


A La b) L(54,8.9,87) 
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47. Hallar: a) Log, ¿2 5  b) Lo, (8770 


48. Sabiendo que el límite de la sucesión de término 
general 
a FA n+3 y 


hallar la diferencia entre el límite y el término 23 de 
dicha sucesión. 


49. Calcular: 


50. ¿Qué imprimirá el ordenador al pulsar: 


PRINT, ((=3)1 12) 4 71% 3.7) 1.01/7) 2 


2ls Calcular: 
a) (-35)4 
b) (-1,845)12 


52. Intentar hallar tag 90%, ¿qué le pasa al ordena- 
dor? Dar una explicación. 


53. Intentar hallar:  log(-10), ¿qué le pasa al ordena- 
dor? Dar una explicación. 
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54. ¿Qué imprimiría un ordenador al pulsar: 
a) PRINT (-54+300)/3*5 
b) PRINT 500/8/4*x10 ? 


55. ¿Qué imprimiría un ordenador al pulsar: 
a) PRINT 3M*x(4+160)/6+3*5 
b) PRINT 48/2P+10*5-18 ? 


10: ¿Qué hay que escribir para que un ordenador simule 
una lotería del 1 al 100? 


57. ¿Cuál es el valor máximo que puede tomar la expre- 
sión 


INT(RND*1PP0)+1 ? 


58. ¿Entre qué números estaría el resultado de pulsar 
PRINT RND*1PQ ?, ¿y de pulsar PRINT (RND*1fP)+1 ? 
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DIAGRAMA DE FLUJO. 
INICIACION A LA PROGRAMACION 


1. Diagrama de flujo 


Definición 1 
Llamaremos Algoritmo al conjunto de acciones 
destinadas a la resolución paso a paso de un problema. 


Se «caracteriza por tener un número finito de 
pasos biendefinidos o sea sin ambigúedad. 


Ejemplo . 
El problema de: "Poner el coche en marcha", 
puede resolverse con el siguiente algoritmo: 


Ex. “ADEIT el coches 

2. Poner la llave de contacto. 

3. Girar la llave. 

4. ¿Se pone el motor en marcha?. En caso afirmativo 
fin del problema; en caso negativo ir a 5. 

5. Mirar si la batería está cargada. En caso afirmativo 
ir a 3; en caso negativo llamar al mecánico y 
fin del problema. 


Definición 2 
Llamaremos Diagrama de flujo u Organigrama al 
esquema que usamos para representar un algoritmo. 


48 
Los símbolos 


Se usa para principio o findel 
algoritmo. 


Entrada de datos 


Movimiento de datos y  opera- 
ciones aritméticas 


Comparaciones lógicas. Su 
única respuesta es sí o no 
ad o 
——————————— 


Línea de flujo. 


Continuación de organigrama 


Ejemplos 


a) El organigrama correspondiente al ejemplo ante- 
rior es: 
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PRINCIPIO 
1 
Abrir coche 


2 
Poner llave 
3 
Girar llave 


se 
pone en 


marcha 
? 


Tiene 
batería 
7 


Llamar 
al 
mecánico 


b) El cálculo del m.c.d. de dos números naturales a y 
b por el algoritmo de Euclides puede realizarse asi: 
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Entrar a y b 

Hallar el resto de a:b (r) 

¿Es cero el resto?. 

Si es así escribir: m.c.d. es b y fin del programa 
En caso contrario ir a 4 

Colocar b en vez de a y r en vez de b. Ira m2 


El diagrama de flujo es: 


PRINCIPIO 


Entrar 
a yb 


Hallar r resto de 
a:b 


b en vez de a 
r en vez de b 


FIN 
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También puede utilizarse el algoritmo basado 
en la siguiente propiedad: 


Si a>b = m.C.d.(a,b) = m.c.d.(a-b,b) 


Definición 3. 


Si el algoritmo lo escribimos para que lo ejecute 
un ordenador decimos que hemos realizado un ''programa'" 
para el mismo. 


Es decir un programa consiste en una serie de 
órdenes numeradas que el ordenador efectúa en riguroso 
orden de numeración. 


Resumiendo 


Para que un ordenador nos resuelva un proble 
seguiremos los siguientes pasos 


Análisis del problema. 


Obtención de un algoritmo para su resolu- 
ción. 

Organigrama del algoritmo. 

Hacer el programa correspondiente. 


Nótese que un mismo problema puede resolverse 
mediante algoritmos distintos. 


2. Lenguajes de programación 


En un principio los programas debían hacerse 
utilizando el llamado "Lenguaje máquina' basado en 
el "Código binario", sin embargo esto implicaba un 
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conocimiento ¡interno del ordenador que generalmente 
es muy complicado. Por esto se crearon unos lenguajes 
de programación más cercanos al lenguaje natural para 
podernos comunicar con el ordenador. Estos lenguajes 
se llaman de "alto nivel'. Nosotros veremos una intro- 
ducción a uno de estos lenguajes: el BASIC (Beninger's 
All-purpose Symbolic Instruction Code: Código de Ins- 
trucciones de uso general para principiantes) nacido 
en la década de los 60. 


Para que el ordenador entienda los lenguajes 
de programación ya sea el BASIC u otro de alto nivel 
. necesita que se lo traduzcan. El encargado de hacerlo 
es un compilador o un intérprete (situado en la memoria 
ROM), según que la traducción del programa se realice 
toda de una vez o bien línea por línea hasta acabar 
todo el programa. 


Un programa escrito en lenguaje de alto nivel 
se llama programa fuente y una vez traducido al '"'lengua- 
je máquina" se llama programa objeto. 


Nosotros no nos ocuparemos de la forma de traduc- 
ción. Trataremos solamente de comunicarnos con el 
ordenador sabiendo que si no cometemos errores en 
el lenguaje que usamos, el ordenador lo asimilará 
gracias a esta "traducción simultánea" de la que no 
nos preocuparemos. 


Antes de continuar htenemos que advertir que 
bajo la denominación de lenguaje BASIC hay una serie 
de 'dialectos' que en lo básico funcionan igual, pero 
que los distintos modelos de ordenadores hacen que 
surjan en algunos detalles pequeñas diferencias. El 
dominio de una forma de programar, allana las dificul-— 
tades que puedan surgir para pasar a otro lenguaje 
o bien a otro dialecto. : 


En el Tema 2 ya hemos empleado la forma de operar 
y las funciones en BASIC. 
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A partir de ahora explicaremos la sintaxis propia 
de este lenguaje para poder programar. 


3. Variables 


Cuando en Matemáticas hablamos de variables, 
nos referimos a letras que representan números. 


En lenguaje BASIC pueden representar números 
(variables numéricas) o bien una serie de caracteres: 
letras, espacios en blanco y otros signos (variables 
alfanuméricas). 


Las variables numéricas se representan con una 
letra: ADS o bien una letra seguida de otras 
o números. 

Por ejemplo: 

Es Ds Es ML sy. P2 >. PALÓ 

Algunos ordenadores sólo distinguen los dos 
primeros caracteres, por ejemplo para este tipo de 
ordenadores es la misma variable PA que PALO. 

Si una variable numérica sólo ha de tomar valores 


enteros se escribe el nombre de la variable seguida 
del símbolo %. 


Ejemplo: Af. 3. Bl $ ABC 

Con ello se consigue un ahorro de memoria. 

Las variables alfamuméricas se caracterizan 
por tener el caracter $ al final de la variable. 


Por ejemplo: 


A$ , B2$ , PALOS 
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Algunos ordenadores solamente admiten una letra 
delante del signo $. 


El valor que les atribuímos son cadenas de carac- 
teres, por ejemplo: 


A$ = "CURSO DE INFORMATICA" 


El valor de la variable debe ir entre  co- 
millas 


Con las variables numéricas pueden efectuarse 
las operaciones indicadas en el tema anterior. En 
cambio con las alfanuméricas sólo se puede realizar 
la '""operación' suma entendida como yuxtaposición de 
dos cadenas. 


Ejemplo 

- "IN" + "VERTEBRADO" = ''INVERTEBRADO" 

- "ESCUCHO"'+" '"+"MUSICA" = "ESCUCHO MUSICA" 
"124119" = "12419" 

Obsérvese que 1124, “LH y "IZ ELO, son cadenas, 


no representan pues cantidades numéricas para efectuar 
operaciones aritméticas. 


Una cadena puede tener a lo sumo 255 caracteres 
(hay alguna excepción). 


Nota. No puede usarse como variable palabras reservadas 
para el lenguaje del ordenador, por ejemplo: SQR, 
Si, PRINTS: 6... 


Podemos imaginar las variables como unos cajones 
que guardan una cantidad (variable numérica) o una 
cadena de caracteres (variable alfanumérica) 


3) 


4. Sentencia LET (Sea) 


Con la sentencia LET, asignamos un valor a una 
variable directamente o a través de una función. Por 
ejemplo: 


o E A A de o dE o AP o A 
Asi pues, LET X = 5, nos indica que cuando 
aparezca la X en nuestro programa toma el valor 


5. 


Si se le asigna un nuevo valor a una variable 
ya definida, este valor desplaza al antiguo. 


Esta sentencia no es siempre necesaria, pues 
en algunos ordenadores para asignar valores a variables 
se puede omitir el LET. 


Por ejemplo: 


X= 3 


El signo igual (=) no siempre coincide con el 
concepto matemático del mismo, pues si escribimos: 


LEL X= X +1 
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no quiere decir que 
significa: "el valor 
por el valor X+1". 
despues de LET X= X+1 


Con la sentencia 
nador, ''asigna a 
del signo = 
derecha". 


Ejemplo 


LET X = 


tenemos 
de 
Es decir, 


la 
el valor de 


ecuación, sino que 
X lo cambiamos 


una 
la variable 
que si antes era 
será X=6. 


Resumiendo 


LET le decimos al ordena- 
variable de la izquierda 
la expresión de la 


A + B 


significa pues que el valor de la variable X es suma 
de los valores de las variables A y B. 


Si las variables son alfanuméricas, 


al atribuir-= 


les un valor lo ponemos entre comillas, es decir, 
si queremos que la variable Af sea igual a NOMBRE, 
B$ sea PRIMER APELLIDO y. C$ sea SEGUNDO APELLIDO, 
escribiremos: 

LET A$ = ''NOMBRE" 

LET. B$ = "PRIMER APELLIDO" 

LET C$ = '"'SEGUNDO APELLIDO" 
Nota. Dejar un espacio en blanco entra también como 


un Caracter más en el 
ejemplo son distintos: 


valor de la variable. Así por 


LET A$ = '"INTER ROGATIVO" 


LET A$ = 


'""INTERROGATIVO" 
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Las instrucciones que contienen esta sentencia 
corresponden al siguiente formato: 


n2 de línea variable expresión 


Nota. Si a una variable no se le asigna ningún valor, 
generalmente el ordenador entiende que su valor es Y 
para las variables numéricas o bien la cadena vacía 
para las alfanuméricas. 


Hay algún ordenador que no admite el uso de varia- 


bles si antes no se les ha asignado algún valor dando 
en este caso el mensaje ''variable no definida". 


5. Sentencia PRINT (Imprimir) 
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Con la sentencia PRINT escribimos en la pantalla 


la expresión que nosotros deseamos. La hemos utilizado 


ya al hablar del ordenador como calculadora. 


Ejemplo 


Pulsando 
PRINT 5%7 


aparece en pantalla (después de pulsar RETURN o ENTER, 


Si queremos que imprima un mensaje (cadena) nos 


basta poner el mismo entre comillas. 


Ejemplo: 
PRINT ''ESTOY ESTUDIANDO EL BASIC" 


nos da en pantalla: 
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Oy ESTUDIANDO El BASIC 


Las instrucciones que contienen esta sentencia 
corresponden al siguiente formato: 


n2 de línea expresión 


También se usa PRINT para imprimir valores de va- 
riables. Por ejemplo  PRINT X imprime el valor de la 
variable X ya definida. Análogamente PRINT Af impri- 
me la cadena asignada a la variable Af. 


Ejemplo 


- Si a la variable X le asignamos el valor 4 


PRINT X 
imprimirá: 
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- Si el valor de X es 4 y el de Y es 5 
PRINT X+Y 
imprimirá: 
9 
- Si A$f= "ROSA" y B$= "MARI" 


PRINT A$+B$ 
imprimirá: 
ROSAMAR I 


6. Presentación en pantalla 


a) Uso de la coma en la sentencia PRINT 
La pantalla está dividida en zonas a las que se 
accede a través de la coma (,). El número de zonas de- 


pende del modelo de ordenador. 


Algunos ordenadores dividen la pantalla en dos 
zonas, otras en tres, cuatro o más. 


Evidentemente cada zona admite un número máximo 
de caracteres. 


Cada vez que ponemos la coma en la sentencia PRINT 
capta la orden de desplazarse por las zonas que tiene. 
Si por ejemplo ponemos: 


-PRINT 4,2 


obtenemos en pantalla: 


61 


ordenador con 2 zonas 


ordenador con 4 zonas 


Si pulsamos 
PRINT 4 5, ,.2 


obtenemos en pantalla: 
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ordenador con 2 zonas 


ordenador con 4 zonas 


Obsérvese que la segunda coma desplaza el 2 hacia 
el tercer lugar, que en caso de existir sólo dos zonas 
es otra vez el inicial y por consiguiente cambia de 
línea: 


Si pulsamos 
PRINT. 4,52 


obtenemos en pantalla: 
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ordenador con 2 zonas 


ordenador con 4 zonas 


Así sucesivamente. 


b) Uso del punto y coma en la sentencia PRINT 


Si ponemos un punto y coma (;) entre dos números 
se imprimen uno a continuación del otro dejando un espa- 
cio en blanco. (Algún ordenador omite este espacio en 
blanco) 
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Ejemplo: 
Si pulsamos 


PRINT 4; 2 


obtenemos: 


4 29] 


Se pueden hacer combinaciones de comas y puntos 
y comas para desplazar el resultado según convenga. 


Si ponemos un punto y coma (;) entre dos cadenas 
se imprimen una a continuación de la otra (sin espacio 


en blanco) 


Por ejemplo si pulsamos 
PRINT '"'ROSA" 3 "MARI" 


aparece en pantalla: 
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ROSAMARI 


Si pulsamos 
PRENE, “ZOR"- 5 "RITA" 


aparece en pantalla: 


ORRITA 


También podemos imprimir un mensaje y el resultado 
de una operación aritmética; para ello tenemos que re- 
cordar que el mensaje va entre comillas, no el resulta- 
do de la operación. 
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Ejemplo 


Si queremos que en pantalla aparezca IT 32 
nos basta pulsar: 


PRINT ""5%7 =" ; 5*7 


que imprime en la pantalla: 


Si en vez de poner punto y coma (;) ponemos una 
coma (,) el resultado de pulsar PRINT. "DET". 07 
es: 


Ordenador con 2 zonas 
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Ordenador con 4 zonas 


es decir, no sale 35 junto al signo igual. 


c) Uso de TAB 


El ordenador divide la pantalla en columnas cuyo 
número depende del modelo. 


Se empieza a imprimir en la columna n (n menor 
o igual que el número de columnas) con la instrucción 
de formato: 


m  PRINT TAB (n) ; 


n2 de línea expresión 


Ejemplo 
PRINT TAB(1M) ; SQR(4) 


imprime: 
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columna 10 


Ejemplo: 
PRINT TAB(2);'"*";TAB(6);'JUAN RONDERO MAJOR"¡TAB(29);'"*" 


imprime: 
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7. Numeración de las instrucciones 


Para que el ordenador sepa cómo efectuar las ins- 
trucciones que componen un programa, tenemos que nume- 
rarlas y las efectuará en riguroso orden de lista. 


Dicha numeración va desde 1 hasta 9999. El progra- 
ma 


PRINT 4+2 
LET X= 4 
LET Y = 8 
PRINTX + Y, Xx Y 


FU py 


nos daría en pantalla (después de pulsar RUN): 


Ordenador con 2 zonas 
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El resultado que aparece, no nos indicará de 
qué operaciones proviene, si lo quisiéramos nos bastaría 
cambiar la instrucción 4 por la siguiente 


4 PRINT "X+Y=" ¡X+Y ¿ "XaY-" s Xx Y 


con lo cual tendríamos en la pantalla: 


Ordenador con 2 zonas 


En muchas ocasiones al efectuar un programa 
nos encontramos que queremos intercalar una instrucción 
entre dos ya escritas, lo cual nos ocasiona un problema 
si son correlativas. No podemos intercalar una línea 
entre la 3 y la 4. Es fácil vencer esta dificultad. 
Para ello se suele poner la numeración de 10 en 10 
y así dejamos espacio entre dos líneas para poder 
intercalar otras si fuera necesario. 


El programa anterior lo escribiremos asi: 


1 PRINT 4+2 
20 LET X= 4 
30 LET Y = 8 
40 PRINT "X+Y=""5X+Y,"X*Y=""3 X+Y 


Si intercalásemos ahora la línea 


35 PRINT "'X-Y=";X-Y,"X/Y="";X/Y 
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el ordenador la colocaría entre la 30 y la 40 aunque 
nosotros la hemos escrito después. El resultado de 
este programa es: 


6 
X-Y = -4 X/Y = M.5 
X+Y = 12 X*Y = 32 


Si es necesario rectificar una línea puede escri- 
birse de nuevo y ésta reemplaza a la antigua. 


Este método obliga a escribir de nuevo toda 
la línea rectificada, sin embargo existen otras formas 
de modificar sólo una parte. Estas formas dependen 
del modelo del ordenador. Se accede a ellos mediante 
el comando EDIT. 


Si queremos suprimir una línea basta escribir 
el número de orden de dicha línea y pulsar RETURN 
o ENTER. 


Nota: Obsérvese que siendo X,Y variables numéricas, 
al poner "X-Y'" no efectúa esta operación, pues para 
el ordenador lo entrecomillado es un mensaje para 
escribirlo, no para efectuar operaciones. 


8. Comando RUN (correr) 


Según hemos visto en 
la pregunta anterior, para 
poder ejecutar un programa 
(lo que se llama correr un 
programa) utilizaremos el 
comando RUN. Este comando 
borra todas las variables 
e inicia el programa desde 
su primera línea. 


LL /3PANVG 


4 
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Si en un programa hay varias partes independientes 
que forman, podríamos decir como un subprograma del 
mismo, como el siguiente: 


TN 
Mo 
A A 
0... . 
e En 
15h... 


y a nosotros sólo nos interesa una de las partes, por 
ejemplo la segunda, nos bastará con poner 


RUN 80 


con lo que ignorará las líneas anteriores y empezará 
por la 80. 


Ejemplo 
En el siguiente programa 
19 PRINT 4 
20 LET X:=5 
30 LET Y = 6 
- 4 PRINT X,Y 


al pulsar RUN obtenemos en pantalla: 


4 
a 6 


En cambio, al pulsar 
RUN 20 


obtenemos: 
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y al pulsar 
RUN 30 
dará o bien 
mensaje de error puesto que en la línea 40 apa- 
rece la variable X que nos estaba definida por 
haber empezado después de la 29 
o bien 


0 6 


si el ordenador asigna el valor / a las varia- 
bles no definidas. 


El comando RUN puede estar incluído en una 
línea de programa. 


9. Sentencia END (fin) 


Con la sentencia END indicamos al ordenador 
el final del programa, aunque para la ejecución del 
mismo no es necesario pulsarla. 


ES 


qu 


En el programa anterior se podría acabar añadien- 
do la línea 


SÓ END 
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En los programas que escribiremos en este libro 
haremos uso de esta sentencia. 


10. Línea, instrucción, sentencia (orden) y comando 


En este capítulo hemos utilizado los términos: 
línea, instrucción, sentencia (orden) y comando. 


No hay uniformidad en la interpretación de estas 
palabras. Adoptaremos en este libro los siguientes 
criterios. 


Un programa está formado por líneas numeradas. 


Cada línea está formada por una o más instruccio- 
nes separadas por dos puntos (:). 


Cada instrucción está formada por una sentencia 
(orden) aplicada a una expresión. 


Las sentencias que pueden usarse sin formar 
parte de un programa las llamaremos comandos. 


Son comandos: PRINT, RUN, LET,  ... 


Ejemplo 


sentencial(orden) sentencial(orden) 


línea PRINT A 


E SS 


n2 línea instrucción instrucción 


EJERCICIOS RESUELTOS 


Entran ties números 

Sumarnlos 

Sí la suma es mayor que 22 in a 7 

Si la suma es menor o igual que 22 in a 5. 
Dividia la suma pon 2. 

Imprimin este resultado 

Fin de programa 


Nam wlan 


Solución 


El organigrama es: 


11.1. QHacer el organigrama del siguiente algoritmo: 
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111.2. Hacer el organigrama de un algoritmo cortes pon— 
diente al oblema: Hallan el volumen de una esfera 


(V = 4/3712), con las siguientes acciones 
1. Entrada del radio 

2. Efectuan las operaciones 

3. Imprimina el resultado 


Solución 


El organigrama es: 


Entrar el 
radio r 


Calcular 
3 


V = Zar 


ql 


111.3./acea el organigrama de un algoritmo conmespondien—- 
te al problema: Hallan las palabras que empiecen porn A 
y acaben en € de entre una lista de palabras. Imprimin 
estas palabras 


Solución 


El organigrama es: 


Entrada de 
una palabra p 


Leer la primera 
y última letra 
de p 


Si 


Imprimir p 


la primera 
letra A yla 


No 


Hay más 


palabras? 


Si 


No 
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111.4. Hacer el organigrama de un algoritmo cornespon- 
diente al siquiente problema: Dada una serie de números 
positivos, si son menores que 100 impriminlos y hallar 
e imprimia su cuadrado, su raiz cuadrada y su raiz cúbi- 


Ca. 


Solución 


El organigrama es: 


Entrar un 
número n 


Hay 
más números 


Calcular 
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111.5. ñAacea el organigrama de un algoritmo cornespon— 
al problema: Dada una lista de números, calculan la 
suma de todos ellos. 


Solución 


El organigrama es: 


Entrar un 
dato a 


Sumar a S el 


valor de a 


Final de 
lista ? 


xxx 
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111.6. ¿Cuáles de las siquientes expresiones se pueden 
utilizan como vaniables?. Razonarn la respuesta. 
a) al b) 1X;  <c) XY; dl) HH; el 52 


Solución 


Son válidas como variables: 
a), 6) y d) 


y no son válidas las b) y e) por empezar por un número 
en vez de una letra. 


111.7. Explicar qué es un enrorn de sintaxis. 
Solución 


Se comete un error de sintaxis si al escribir un 
programa en un lenguaje de alto nivel (como el BASIC) 
se infringen las reglas (sintaxis) de este lenguaje. 


111.8. Escuibia en forma de sentencias LET: 


falbuo)* 


, m —3m 
3a-1 y 


a) b = b) h = 


Solución 
Dichas sentencias son: 


a) LET b = (a+b-c)12/(3*a-1) 
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b) LET h = (mtk-3xm)/(k+214) 


111.9. ¿Cuál es el resultado de la ejecución del siguien- 


te programa? 
1 LET X = 20 


20 LET Y = 49 
3/ PRINT X+Y 
4 LET X = X+1 


5 LET Y = Y+2 
6% PRINT XxY 
79 LET X = X+2 
8 PRINT X-Y 
90 END 


Solución: 
En la 30 suma y el resultado es 60. 


En la 40 y 50 el valor de las variables es X=21, 
Y=42 con lo cual la 68$ nos da como resultado 882. 


En la 70 el valor de X es 23 por lo que el resulta-— 
do de la 8/ es -19 


La pantalla nos da pues: 


Xx x 


111.10. ¿Que aparecerá en pantalla con la ejecución 
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del siguiente programa? : 


1 LET A$ "Juan Angel" : LET B$ = "Rosi" : 
LET C$ "Mariano" 

20 LET X=2 : LET Y=4 

3% PRINT A$; " estudia ';X;" horas cada dia, mien-— 
tras que '';C$;" y ";B$;" tienen bastante con "'; 
Y;'" horas a la semana" 

4 END 


Solución 
Aparecerá: 
Juan Angel estudia 2 horas cada día, mientras 


que Mariano y Rosi tienen bastante con 4 horas 
a la semana. 


+ 
* 
» 


111.11. 5i introdujérnamos el siguiente programa: 


49 PRINT AxB 
20 PRINT A-B 
5 LET A=2P 
1 LET B=4 

5 END 


en un ordenador ceeREa mensaje de error? En caso nega- 
tivo qué impriminta? 


Solución 


No hay errores. Dicho programa nos imprime como re- 
sultado: 
16 
80 


* 
* 
* 
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111.12. ¿Qué imprimirá la ejecución del siguiente pro- 


grama? 19 LET A$ = "EX" 
20 LET B$ = "ALUMNO" 
30 PRINT A$+B$ 
40 END 


Solución 


Dicho programa imprimirá: 


EXALUMNO 


111.13. ¿Hay algún ennon de sintaxis en el siguiente 
programa? 

10 LET X-12,16 

20 LET Y=4,5 

3 PRINT X+Y 

4% PRINT X-Y 

5H END 


Si lo hay señalarnlo, y si no lo hay decia cuál senta 
el resultado de la ejecución del mismo. 


Solución 


Hay tres errores. En las líneas 10 y 20 a las va- 
riables se les asigna valores con una coma y en BASIC 
la parte entera se separa de la decimal por un punto. 


Por otra parte en la línea 44 el signo de multipli- 
car debería ponerse con un asterisco o sea: 


X*Y 
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111.14. Si la pantalla de un ordenador tiene 32 colum- 
nas, escribia una línea de programa para que imprima 
centrado en la pantalla el texto SOLUCIONES" 


Solución 
10 PRINT TAB(16-5); ''SOLUCIONES" 


Obsérvese que 16 es el número de columnas dividido 
por 2 y que 5 es el número de caracteres de la palabra 
'""SOLUCIONES"' dividido por 2. 


111.15. Hacer un programa en el que aparezcan en pan-— 
talla: 

a) La longitud del lado del polígono regulan de 127 
lados inscrito en una circunferencia de radio 2 cm. 

b) La diferencia entre su pernimetao y el de la cincun- 
fenencia . 


Solución 


Se tiene que: 


R sen 5 => > 1= 2Rsen 5 : 
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siendo a = 2%/n (n es el número de lados del polígono 
regular). 


El programa es: 


1 LET n=127 

20 LET a=2*/n 

30 LET R=2 

4% PRINT "Lado= ";2*R*SIN(a/2) 

5f PRINT 

6% PRINT 

7% PRINT "Diferencia= ";2*R*SIN(a/2)*n-2*1*R 
8% END 


111.16. Hacer un programa en el que el ordenador com- 
pruebe la desigualdad 


2 > a.b 
sindo a,b dos números entre O y 100 escogidos al azar pon 


el ordenador. 


Solución 


El programa es: 


1 LET a = RND*100 

20 LET b = RND*100 

3% PRINT (a+b)/2,(axb)tM.5 

4f PRINT "La diferencia entre el primero y 
el segundo es '";(a+b)/2-(axb)t0.5 

50 END 
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EJERCICIOS PROPUESTOS 


59. Cuando en un organigrama aparece el símbolo A 
nos indica que: 


a) Calculemos el área del rombo. 

b) Hay una entrada-salida de datos. 

c) Hay una comparación lógica cuyo resultado solamente 
es: si o no. 

d) Hay una comparación lógica cuyo resultado es: algu- 
nas veces si, otras veces no. 


Razonar la respuesta correcta. 


60. Hacer el organigrama de un algoritmo correspondien- 
te al siguiente problema: HALLAR LA SOLUCION DE UNA 
ECUACION DE PRIMER GRADO (ax = b , a 4 0). 


61. Hacer el organigrama del algoritmo de ENTRAR EN CLA-— 
SE, con las siguientes acciones: 

1. Llegar al Instituto. 

2. Si está el compañero-a ir a 3. Si no, ir a 4. 

3. Hablarle de la última conquista e ir a 4. 

4. Esperar la llegada del profesor. 

5. Entrar con ánimo a clase. 


62. Hacer el organigrama del algoritmo de DAR TRES NUME-— 
ROS DISTINTOS Y AVERIGUAR SI PUEDEN SER LAS MEDIDAS DE 
LOS LADOS DE UN TRIANGULO, con las siguientes acciones: 
1. Entrar los tres lados. 

2. Sumar los dos menores. 

3. Si el mayor es menor que esta suma imprimir: "si". 
En caso contrario imprimir "no". 
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*63. Hacer el organigrama de un alegoritmo correspondien- 
te al siguiente problema: CALCULAR EL IMPUESTO ¿4 PAGAR 
POR UNA DETERMINADA CANTIDAD MC BAJO EL SIGUIENTE CRI- 
TERIO: EL 10% SI C ES MENOR O IGUAL QUE 15000, EL 20% 
SI C ESTA ENTRE 15000 Y 45000 Y EL 30% SI C ES MAYOR 
O IGUAL QUE 45000. 


64. Completar el siguiente organigrama para un problema 
concreto. 
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65. Completar el siguiente organigrama para un proble- 
ma concreto. 


66. Completar de dos maneras distintas el diagrama de 
flujo siguiente de manera que representen a dos proble- 
mas distintos: 
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no 


Si 


*67. Hacer un organigrama en el que se reflejen las si- 
guientes acciones: Entrar dos números y efectuar su di- 
ferencia (primero menos segundo). Si esta diferencia 
es positiva o nula, efectuar la raiz cuadrada e impri- 
mirla. Si es negativa imprimir el mensaje ''No se puede 
realizar la raiz cuadrada de un número negativo". 
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68. En el organigrama adjunto: 


Entrar 
A,B 


No 
B40 ? 


Calcular Hacer 
Z=A:B A=A+1 


es 


Z entero 
2 / 


B debe ser 
distinto de 
0 


Si 


Imprimir 
Z, 


= 
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a) Explicar qué problema resuelve. 
b) ¿Cómo se expresa con funciones matemáticas del BASIC 
la acción averiguar si z es entero? 


69. Hacer el diagrama de flujo para el cálculo de 
n*Cstendo n= 1.2.3: 500) 


70. Hacer el diagrama de flujo para el siguiente 
problema: Dados n números A,,A,,+...+.,A_, imprimir el 
ISE n 

menor de ellos. 


71. Explicar a qué se llama programa fuente y programa 
objeto. 


72. Explicar qué diferencia hay entre un compilador y 
un intérprete. 


73. ¿Por qué es conveniente numerar las líneas de ins- 
trucción de 10 en 10? 


74. ¿Cuáles de las siguientes expresiones se pueden 
utilizar como variables? 
a) X$ , b)1$ , c)$X , d)$2 , e) ABS 


75. ¿Qué aparecerá en la pantalla al ejecutar el siguien 
te programa? 
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10 LET A$ "Manolo 
20 LET B$ "Lola" 
30 LET C$ = "Lucas" 
40 PRINT A$;'" enreda a "; B$;" y ";C$ 
50 END 


76. ¿Qué aparecerá en la pantalla al ejecutar el si- 
guiente programa? 


10 LET A = 5: LETB=4«:oLET C$ ="Antonio" 
LET- DS = "Luisa” 

20 PRINT "5 por 4 es igual a "¡A*B:PRINT C$; 
"y ";D$;'" estudian el mismo curso" 

3% END 


*77. ¿Qué aparecerá en la pantalla al ejecutar el siguien 
te programa? 


10 LET LADO = 5 

20 PRINT "El area del cuadrado de lado 5 es igual 
a "¡LADO 12 

30 END 


78. Si ejecutamos el programa: 


10 LET A$ = '"'NUMERADOR" 
20 LET B$ = '"DENOMINADOR" 
30 PRINT TAB(17);A$ 
49 PRINT TAB(16);" " 
5) PRINT TAB(16);B$ 
6%f END 
¿qué imprimirá? 


79. ¿Qué imprimirá la ejecución del programa siguiente? 
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1 LET A$ = "Diez" 
20 LET B$ = "mil" 
30 PRINT A$ + B$ 
40 END 


* 80. ¿Hay algún error en el siguiente programa? 


1) LET A$ = "6" 
20 LET B$ = "5" 
30 PRINT A$ + B$ 
40 PRINT A$ + B$ 
50 END 


81. Escribir un programa en el que aparezca el gráfico 
adjunto en la pantalla: 


* 82. Escribir un programa que imprima 3 cadenas ya 
definidas A$,B$,C$ separadas por una línea en blanco. 


83. Escribir un programa para que aparezca centrado en 
la pantalla el siguiente mensaje: 
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84. 


se 


en 


85. 


86. 


87. 


la 


¿Qué dificultad puede encontrar el ordenador cuando 
ejecute la línea 


SO LET X = (Y - Z)1?10.6 


un programa? 


Si hay una instrucción que es 
LET X= -A13 


¿Qué valor tomará X si A=3? 


Si hay una instrucción que es 
LETX=A1?3 


¿Qué valor tomará X si A=-3? 


¿Cuál debería ser el valor de X y el de Y para que 
ejecución del siguiente programa 


88. 


89. 


90. 


Ls 
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10 LETA=X 
20 LET B= Y 

3/0 PRINT SQR(A) 
40 PRINT SQR(B) 
50 END 


diese como resultado: 


Escribir en forma de sentencia LET 
4 
A 
a) xs as 2 DY Ys APR SE Z Ss 
ED p? 


Escribir en forma de sentencia LET 
B ] A La e 
a) X= A E bI X= 0; c) Z = A +B 


Hacer un programa cuya ejecución imprima: 
Voy a calcular los siguientes valores: 


5x61(1/5) = 
SIN(7*T/5) = 
LN(713) = 


(dando las soluciones de estas expresiones) 


Hacer un programa cuya ejecución imprima el valor 


de la expresión 


E (531,2,4)áJeag == 


paras. a) Ae3.. BskyO 1 D) A=133 4. B259,8 
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92. Supongamos que en el ordenador tenemos introducido 
el siguiente programa: 


1f LET X= 5 


20 LET Y = 10 
3 PRINT X + Y 
40 LET A = 40 
5Ó LET B= 20 
60 PRINT Ax B 
7% END 


y sólo queremos que ejecute a partir de la línea 
4/0. ¿Qué debemos pulsar? 


93. Si tenemos en el ordenador ya introducido el pro- 
grama: 


1H LET X 
20 LET Y = 
30 PRINT X + Y 
4% PRINT X 
50 END 
¿qué resultado nos daría en pantalla al pulsar 
RUN 368? 


tl 
a 
Sa 


94. ¿Qué daría la ejecución del siguiente programa? 


1) LET X = -10 
20 PRINT X12 

30 PRINT SQR(X) 
4% END 


Razonar la respuesta. 


95. ¿Cuál es el resultado de la ejecución del siguiente 
programa? : 


1f LET X 
20 LET Y = 10 


l 
Un 
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30 PRINT Y/X 
40 LET X = 2*X 
5% PRINT Y/X 
60 LET Y = Y/2 
79 PRINT X * Y 
80 END 


*96. Determinar qué imprimirá la ejecución del siguiente 
programa: 


19 LET 
2% LET 
30 LET 
40 LET 
50 LET 
60 LET 
7% LET Y = 
80 PRINT X, 
90 END 


N XK <XU00uy> 
tl 


* 97. Si introdujéramos el siguiente programa: 


1 LET A = 25 


20: PRINT "A *-2 ="3 Ax2 
30 PRINT "A/A=""; A/A 

30 

4 PRINT "A + A =""; A+A 
50 END 


en un ordenador, ¿qué imprimiría? 


98. ¿Qué aparecerá en la pantalla con la ejecución del 
siguiente programa? 


10 LET A$ = "MARIA" 

20 PRINT "La raiz cuadrada de 25 es '; SQR(25) 
30 PRINT 'Antonia es amiga de ";A$ 

49 END 
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99. ¿Qué imprimirá la ejeción del siguiente programa? 


19 LET X= 5: LET Y = 7 
20 LETZ=X+ Y 

30 LET P=X* Y 

40 END 


*100. Si introdujéramos el siguiente programa: 


30 PRINT X + Y 
60 PRINT X -— Y 
4% PRINT X/Y 

1$ LET X = 48 


20 LET Y = 190 
50 PRINT X x Y 
60 END 
en un ordenador, ¿daría mensaje de error? En caso 


negativo, ¿qué imprimiria? 


101. Si introdujéramos el siguiente programa: 


1) LET A = 20 : LET B= 30 
20 PRINT "A x B="; AswB 

30 PRINT "A + B ="; A+B 

4/0 END 


en un ordenador, ¿qué imprimiría? 


102. ¿Hay algún error en el siguiente programa? 


10 LET A$f = Nombre 
2/0 PRINT A$ 
3% END 


103. ¿Hay algún error en el siguiente programa? 


104. 
tas. 


105. 


100, 


* 107, 


19 LET B 
20 LET C 
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-6 
2 


30 LET 2A = 4 
4 PRINT B+ C + 24 
5 END 


Todas las sentencias LET siguientes son incorrec- 
Decir cual es el error. 


LET A ="24406 
LET B = 30 
LET C+1 = C 


¿Hay 


19 
20 
39 
49 
50 


¿Hay 


10 
20 
39 
49 
50 
60 


¿Hay 
19 


29 
30 


algún error en el siguiente programa? 


LET X:.= 3 

LETY MAR XAO 
LET X+4 = Z 

PRINT X,Y,Z 

END 


algún error en el siguiente programa? . 


LET X= 3 
LETX=< DS 
PRINT X1X 

LET X * 5 Y 
PRINT X,Y 

END 


algún error en el siguiente programa? 


LETA=6 
LET B= -2 
LET A+B = X 
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40 PRINT X 
5H END 


108. Si un franco francés vale 18,7 pesetas y un dólar 
163,5 pesetas (cambio en julio de 1984), hacer un 
programa que imprima un cuadro con estas equivalencias 
y el valor en francos y dólares de 525.000 pesetas. 


109. Hacer un programa que dé 5 números enteros al 
azar entre 1 y 50, y calcule su media aritmética y 
su media geométrica. 


110. La ejecución de un programa debe imprimir 6 varia- 
bles: A,B,C,D,E,F. Escribir este programa de modo que: 


a) Las imprima una en cada línea. 

b) Las imprima todas seguidas con una separación 
de dos espacios entre ellas. 

c) Imprima dos en cada linea. 


*111. Escribir una parte de un programa que intercambie 
el valor de dos variables A y B ya definidas. 


4 
ENTRADA DE DATOS. OTRAS SENTENCIAS 


1. Sentencia INPUT (entrada) 


Al realizar un programa Casi siempre interesa 
que nos sirva para distintos valores de las variables. 
Si no queremos escribir otra vez dicho programa debemos 
introducir los datos durante “su realización. Esto 
lo conseguimos con la sentencia INPUT. 


Si escribimos: 


1f LET BASE = 5 
20 LET ALTURA = 6 

3/0 PRINT ''BASE x ALTURA =";BASE * ALTURA 
40 END 


El resultado en pantalla de este programa es: 


BASE x ALTURA = 30 


Si queremos que este programa nos sirva para 
calcular el área de cualquier rectángulo tendremos 
que poder modificar el valor de las variables. 


Los podemos hacer de la siguiente manera: 


1% INPUT B 

2% INPUT A 

30 PRINT "BASE x ALTURA ="'; Px*A 
4/0 END 
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Si ejecutamos el programa anterior, debido a la 
línea 10 el ordenador espera que entremos el valor de 
la base B. 


2 


Si por ejemplo pulsamos 6 (y RETURN Ó ENTER,...), 
pasará a la línea 20 y esperará a que entremos el 
valor de la altura A. 


Si pulsamos 8 (RETURN ó ENTER,...) continuará 
la ejecución del programa e imprimirá 


BASE x ALTURA = 48 


La sentencia INPUT admite también mensajes que 
deben separarse de la variable por un punto y coma (;) 
y que se utilizan para indicar al usuario las variables 
que debe introducir, por ejemplo: 


1% INPUT "BASE =""¿B 

2% INPUT "ALTURA ="";A 

30 PRINT "BASE x ALTURA ="";Bx*A 
4/0 END 
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Con lo cual el ordenador presenta en pantalla: 
BASE =? 


(en algunos no aparece el interrogante) y espera que 
le demos un valor. 


Si le damos por ejemplo el 6 y pulsamos RETURN 
aparece: 


ALTURA =? 


y vuelve a esperar otro valor. 


Si pulsamos por ejemplo el 8 y luego RETURN, 
aparece en pantalla: 


BASE x ALTURA = 48 


Para volver a utilizarlo nos basta pulsar RUN 
y vuelve a aparecer en pantalla: 


BASE =?1 


y podemos introducir datos distintos. 


Generalmente la sentencia INPUT admite mas de 
una variable. Podríamos escribir el programa anterior 
de la siguiente forma: 


10 INPUT B,A 


20 PRINT "BASE = "B,. "ALTURA = "7 A 
30 PRINT "AREA = "; Bx*xA 
40 END 


También se utiliza la sentencia INPUT para in- 
troducir cadenas, por ejemplo la ejecución de la línea 
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19 INPUT A$ 
esperará a que el usuario introduzca una cadena. 


ol 
En algunos ordenadores al ejcutarse una línea 
del tipo A$ da error si la cadena contiene los caracte- 
res , O : Para estos las cadenas de este tipo hay 
que entrarlas entre comillas. 


Las instrucciones que contienen esta sentencia 
corresponden al siguiente formato: 


INPUT " 


. 98 A,B$,C, ... 


n2 de línea cadena variables 


2. Sentencia NEW (nuevo) 


Con la sentencia NEW se borra el programa alma- 
cenado en la memoria RAM, asi como todas las variables. 
(Equivale a desconectar el ordenador y volverlo 
conectar). 
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Se utiliza normalmente como comando. 


Pulsar NEW por error destruye por tanto todo 
el programa almacenado. Si este error se comete después 


de teclear un largo programa resulta que 


se pierde 
todo el tiempo empleado. 


3. Sentencia CLS (borrar pantalla) 


Con la sentencia CLS se borra el contenido de 


la pantalla, de manera que el siguiente PRINT empezará 
a imprimirse en la primera línea. 


También puede utilizarse como comando. 


/ 40 PRINT 4 
E LM ¿ET XTS 


E 
PA A 


Ejemplo 
La ejecución del programa 


1 PRINT "Prueba del CLS" 
20 LETA= 2 
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30 PRINT 3 * A 
490 PRINT 3 * 5 
5% PRINT SQR(25) 
60 END 


imprime: 


Prueba del CLS 
6 
13 
5 


Pulsando a continuación el comando CLS queda 
borrada la pantalla pero no el programa ni las variables 
a diferencia de la sentencia NEW. 


Si se usa como sentencia en una línea de programa 
borrará la pantalla y continuará la ejecución del 
mismo. 


4. Sentencia LIST (listar) 


La sentencia LIST sirve para visualizar la lista 
de instrucciones del programa almacenado en la memoria 
RAM, es decir, pulsando LIST (seguido de RETURN, EN- 
TER,...), aparece el listado del programa. 


Por ejemplo si tenemos almacenado el último 
programa de la pregunta n2 1 de este tema, al pulsar 
LIST (seguido de RETURN,...) aparece en pantalla: 


19 INPUT B,A 

20 PRINT "BASE ="5B , "ALTURA ="3A 
30 PRINT "AREA ="; Bx*A 

4% END 


Si interesa el listado de la línea hn basta 
pulsar LIST n, por ejemplo en el programa anterior 
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pulsando LIST 30M aparecería en pantalla: 


30 PRINT "AREA ="; Bx*A 


Esta sentencia se utiliza principalmente como 
comando. 


5. Sentencia REM (comentar) 


La sentencia REM sirve para introducir comenta- 
rios en el programa. 


El ordenador ignora esta instrucción salvo pa- 
ra el listado del programa, es decir, si nosotros 
pulsamos 


1 REM ESTE PROGRAMA SIRVE PARA CALCULAR POTENCIAS 


cuando el ordenador efectúe el programa pasa de largo 
esta línea. 


Entonces podemos preguntarnos, ¿para qué sirve 
esta sentencia? Sencillamente, para que sepamos de 
qué trata un programa (poniéndole título) o para recor- 
dar el por qué damos unas instrucciones determinadas 
al ordenador. Por ejemplo, si efectuamos un programa 
para resolver la ecuación de 22 grado podríamos poner: 


1f REM PROGRAMA PARA RESOLVER LA ECUACION DE 
SEGUNDO GRADO 


y dentro de las instrucciones poner otra que diga: 


3/0 REM CALCULO DEL DISCRIMINANTE 
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La única misión que tiene es pues recordar al 
programador lo que ha hecho y avisar al que lea el 
programa porqué lo hace. 


16. Sentencia STOP (parar) 


Hemos visto que con la sentencia END finalizaba 
el programa. Pero en ocasiones nos interesará parar 
la ejecución del programa en alguna de sus líneas 
sin que éste haya acabado. Para ello utilizaremos 
la sentencia STOP que detiene la ejecución del programa. 


En un programa podemos utilizar la sentencia 
STOP tantas veces como nos haga falta. 


7. Comando CONT (continuar) 


El comando CONT se utiliza para continuar la 
ejecución de un programa detenido por la sentencia STOP. 


Por ejemplo la ejecución del siguiente programa: 


1% INPUT 
20 LET X 
3/0 PRINT 
4% STOP 

50 PRINT X + 3 
6% END 


A+ A» 2 


>< Il» 


se parará en la línea 40. Si luego pulsamos CONT segui- 
rá la ejecución a partir de la línea 50. 
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EJERCICIOS RESUELTOS 


1v.1. ¿Hay algún exnorn en los siguientes programas? 


a) 1 PRINT PROGRAMA DE VOLUMENES DE ESFERAS 
2 INPUT R 
30 LETV=4*7T*R13/3 
40 PRINT R,V 
5f END 


b) 1% INPUT A 
20 LETA=A* 1,65 
3% PRINT A 
40 END 


Solución 
a) Hay un error en la línea 1/0. Tendría que ser 


1 PRINT '"PROGRAMA DE VOLUMENES DE ESFERAS" 


Faltan las comillas. 


b) Hay un error en la línea 2f. Debería ser 
20 LETA=A=* 1.65 


La coma debe ser sustituida por un punto. 


1V.2. ¿Qué impriminá la ejecución del siguiente programa? 


1f INPUT A,B 

20 REMA?124+B12 
30 PRINT "REM" 

4% END 


Solución 
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Este programa sólo escribe REM 


* xx 


1V.3. ¿Qué impriminá la ejecución del siguiente programa? 


1) LET A = 50 

20 LET B= 60 

3% NEW 

4 PRINT A*B 

5% END 
Solución 


No imprimirá nada pues la línea 3f borra el 
programa y por tanto la línea 40 no llega a ejecutarse. 


1V.4. Escribia un programa en el que, dida los catetos 
de un triángulo rectángulo cualquiera, nos dé como 
resultado la hipotenusa y la medida de los angulos 
agudos del mismo expresados en radianes. 


Solución 


Un programa es: 


1% INPUT "Cateto b="; b 

20: INPUT "Cateto e="y € 

3 PRINT "Hipotenusa= '"; SQR(b*? 2 + c 12) 
40 PRINT "B= ";¡ATN(b/c);' radianes" 

50 PRINT "C= "¡ATN(c/b);'" radianes" 

6/0 END 


+ 
+ 
+ 
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IV.5. Escribia un programa Que imprima el ánea y el 
volumen de una esfera preguntando el radio de esta. 


Solución 


El organigrama y el programa correspondiente son: 


1 REM AREA Y VOLUMEN DE UNA ESFERA 
2% INPUT "Radio =";r 

30 LETA=4*7T*rt2 

40 LET V= 4/3 * T*r13 


50 PRINT "Area = "¡A 
6%f PRINT ''Volumen = ";V 
7% END 
Calcular 
A = Area 
V = Volumen 
kk 


I1V.6. Escribia un programa que transforme en radianes 
las medidas de los ángulos dadas en grados minutos 
y segundos sexagesimales. Aplicarnlo a los angulos: 


Y APIS by) 1890-19: EJ) 399. 139% 143" 
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Solución 


La relación que hay entre grados sexagesimales y radia- 
nes es: 


xo _ y Yad _ TX 
1800 raras ” ?”7 180 


Un programa es: 


10 REM PASO DE GRADOS A RADIANES 
2% INPUT "Grados =";g 
3% INPUT "Minutos =";m 
40 INPUT "Segundos =";s 
5 LET r = (g + m/60 + s/3600) * 7/180 
6% PRINT g;" grados '';m;'" minutos " ; 
s ;' segundos son : '";r;'" radianes " 
7% END 


Entrando los valores dados en el enunciado da: 


a) 175 grados f/ minutos f segundos son: 3./P543262 
radianes 


b) 18 grados 19 minutos / segundos son: (P.31968614 
radianes 


c) 59 grados 13 minutos 15 segundos son: 1./P335985 
radianes 


1V.7. Escribia un programma que calcule el interés 


compuesto de un OS C preguntando cuál es el capi- 
tal, el rédito y el tiempo en ea 


(C=c(1+r)* ) 


Solución 


El programa es: 
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1 REM INTERES COMPUESTO 

2% INPUT "Capital inicial =";c 

3/ INPUT "Rédito en % =";r 

40 INPUT '"Tiempo="";t 

5 PRINT "El capital final es C = "¡cx(1+r/100)1tt 
6h END 


1V.8. Esc un poa que nos dé el valor numéni- 
co del polinomio  axtsbxi+oxérdxre pana cualquier 
valon de x yde los coeficientes. 


Solución 
Recordemos que el ordenador sólo admite el cálcu- 
lo de potencias de base positiva o nula. Por ejemplo 


x14 sólo se calcularía para x>0. 


Para obtener valores numéricos para cualquier 
valor de x daremos dos programas que no usan ft 


1% INPUT a,b,c,d,e 


20 INPUT x 

30 PRINT ''Para el polinomio P(x) = ";¡a;z"xt4 +"; 
DIPXTI AMO UMTZ AMOR Ae 

40 PRINT "P(U"¡x3") = "jarXx*X*XRXX + DeEXexxeX + 


CÉX*XX + Ú*X + €-- 
5 END 


El otro programa es el mismo que el anterior 
cambiando la línea 48 por 


4% PRINT "P("3xz") = "y xx=(x*(xx(arx+b)+c)+d)+e 
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1V.9. El área de un triángulo es: 
A = y p(p-a)(p-b)(p-c) 


donde p es el semiperimetao y a,b,c son las medidas de 
los lados. 

Escribian un programa cuya ejecución dé el ánea 
de un triángulo introduciendo a,b,c 


Solución 


El programa es: 


10 REM AREA DE UN TRIANGULO 

2% INPUT a,b,c 

30 LET p=(a+b+c)/2 

4/0 PRINT "Area = ";(pxw*(p-a)x(p-b)x(p-c))1 M.5 
50 END 


Xxx 


1vV.10. ÉEscribia un programa cuya ejecución imprima 
la velocidad con que llegará al suelo un objeto que 
cae desde una altura h introduciendo h 


A A A 


Solución 


El programa es: 


1 REM VELOCIDAD DE CAIDA 
20 INPUT "Altura =";h 

30 LET V = SQR(2*9.81*h) 
4% PRINT "Velocidad = ";v 
5 END 


1V.11. En el tino parabólico indicado en el gráfico, si 
se considera sin rnozamientos, 
el alcance 0A viene dado 
porn la expresión: 


Z 
y Vo nt 


siendo g la gravedad $9. 8imfs* 


Escribin un programa 
cuya ejecución dé el alcance 
del proyectil para cualquier velocidad inicial V¿ y 
para cualquier angulo a en grados. 


Solución 


El organigrama y programa correspondientes son: 


Entrar 
Ye s 3 
Calcular 
DA 


Imprimir 
DA 


1% REM ALCANCE DEL PROYECTIL 

29 INPUT "Velocidad inicial =";3V, 

3/H INPUT ''Angulo de tiro en grados=";a 
40 LET Y = VoxVo*SIN(2x*ax* /18/P)/9.81 
5) PRINT "El alcance es "; Y 

6% END 


Nótese que en la línea 40 hemos 
pasado los grados a radianes para 
calcular el seno. 
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1V.12. Escribir un programa cuya ejecución resuelva una 
ecuación de 2% grado con raices reales. 


Solución 


La ecuación de 22 grado es: 
2 
ax: + DO 2 E = 0 


y la solución de la misma es: 


-biv bebe 


Za 


Si bolso tiene dos soluciones reales que son: 


—b+ Y A -b- Y bhao 


Xx, = —_—_—_—___—_—_—— Ki = 
2a 


j 2a 2 


En el supuesto pues de que bdaciÓ: el diagrama de 
flujo y el programa correspondiente son: 


10 REM CALCULO DE LAS RAICES DE UNA 
ECUACION DE SEGUNDO GRADO 
20 INPUT "Los coeficientes son:";a,b,c 


cra 3 REM CALCULO DEL DISCRIMINANTE 
ió 4% LET H = bxrb-4*ax*c 
45 LET D = SQR(H) 
Calcular 5 LET X1 = (-b+D)/(2xa) 
D=a/b?-4ac 60 LET X2 = (-b-D)/(2x*a) 
7% PRINT "Las raices son :" 
Ta 80 PRINT "X1 = ";X1,"X2= ";X2 
X1=(-b+D)/2a 99 END 


X2=(-b-D)/2a 


Para la ecuación 


o E 


una vez introducidos: 


A A Y 


sale en pantalla: 


Las raices son: X1=2 X2=5 


Observemos que al calcular el discriminante 
en la línea 480, en vez de poner b12 hemos puestos 
b*b. La razón de hacerlo así es que si fuese b<O0 
el ordenador no calcularía la potencia .b12 y nos 
daría el mensaje de error. 


En caso de no tener raíces reales saldría mensa- 
je de error. 


118 


EJERCICIOS PROPUESTOS 


112. ¿Son equivalentes las sentencias LET e INPUT? 
¿Hay alguna diferencia entre ellas? 


113. ¿Qué ocurrirá si una línea de programa es: n 
NEW? 


114. Si un programa se ha parado debido a una sentencia 
STOP ¿cómo se puede hacer para que continúe? 


115. ¿Puede usarse LIST en una línea de programa? 


116. Poner un título adecuado al programa siguiente 
mediante la sentencia REM 

20 INPUT R 

30 PRINT "L= ';2**R 

44% END 


* 117. ¿Qué hará el ordenador al encontrarse con la 
siguiente línea? 
n INPUT A, A$ 


118. ¿Qué aparecerá en la pantalla con la ejecución 
del siguiente programa 
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INPUT x 
LET A = 
LET A 
LET x 
PRINT x -— A 
END 


1 
Xx p>u 


si en la línea 1/$ entramos: 
a) x=2 ; b) x=3 ? 


119. ¿Qué aparecerá en la pantalla con la ejecución 


del siguiente programa? 


10 
20 
30 
40 
50 
60 
79 


INPUT A 
INPUT C 
LET X = 
PRINT C 
NEW 

PRINT 
END 


120. ¿Hace falta modificar alguna línea del siguiente 
programa para que sea correcto según el título? 
1% REM Cuadrados de cualquier número 
20 INPUT A 
3 PRINT A12 
4% END 


121. ¿Podría aparecer alguna dificultad en la ejecución 
del siguiente programa? 

1f INPUT N 

20 PRINT N, SQR(N) 

30 END 
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122. Escribir un programa que pregunte el nombre del 
usuario y luego imprima un saludo a éste 


123. Escribir un programa en el cual el ordenador 
pregunte 


e imprima las respuestas correspondientes. 


124. Supongamos que tenemos un programa con las siguien- 
tes líneas: 

19 

20 

25 

JD és 
4... 

SÓ END 
y pulsamos LIST 3 ¿Qué parte del listado aparecerá en 
la pantalla?, ¿y si pulsamos LIST 60 ? 


125. ¿Hay algún error en los siguientes programas? 


a) 10M INPUT A 
20 INPUT B 
30 LET Y=A:B 
40 PRINT A,B,Y 
SÓ END 


b) 1 INPUT A 
20 INPUT B,C 
30 LET Y=A+B/A.C 
40 PRINT A,B,Y 
5%) END 


6) 1% INPUT A 
20 LET S=A-1MP2.3 
30 INPUT B 
40 PRINT A,B*B 
SÓ END 


126. ¿Hay algún error en el siguiente programa? 
10 INPUT A 
2% INPUT B$ 
30 LET Z = A+B$ 
4 PRINT Z 
5% END 


127. ¿Hay algún error en el siguiente programa? 

1 INPUT A 

20 INPUT B 

30 LET X = (A+B)/C 

4 PRINT X 

5% END | 
En caso afirmativo señalar cuál. En caso negativo ¿qué 
hará la ejecución del mismo? 


128. Hacer un programa para que calcule el área de una 
esfera sabiendo su volumen. 
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129. La fórmula de las anualidades de capitalización es: 
C-r 


A 
(Mana 
siendo 

C = capital final 

r = tanto por uno 

a = anualidad 

t = tiempo en años 


Escribir un programa cuya ejecución nos dé la anualidad 
a ingresar para formar el capital C al tanto por 
uno r en t años. Aplicarlo a los casos: 

a.) C=1300000 ptas. Y=0,125 t=8 años 

b) C=2000000 ptas., r=0,08, t=5 años 


130. La fórmula que nos da las anualidades de amortiza- 
ción es: 


Der Cie)" 


(1er E-1 
siendo 
= deuda 
tanto por uno 
tiempo en años 
= anualidad 


porro 
1 


Escribir un programa que nos dé la anualidad a pagar 
al final de cada año para amortizar una deuda D al 
tanto por uno r en t años. Aplicarlo a los casos »si-— 


guientes: 
a) D=3000000 ptas., r=0,11, t=10 años 
b) D=1200000 ptas., r=0,12, t=5 años 


131. Escribir un programa para transformar radianes 
en grados sexagesimales. Aplicarlo para los ángulos: 
a)«a =%/5 rad.; b)=4/7 rad.s c) a=1,75 rad.; 
d) a=(5/7)x rad. 
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(La relación entre radianes y grados sexagesimales 
és: 

a rad  x? ] 

T rad 1809 


132. Modificar el programa anterior para que nos dé 
en grados, minutos y segundos sexagesimales los ángulos 
medidos en radianes. ¿Cuál sería el resultado de los 
cuatro apartados anteriores? 


133. Escribir un programa cuya ejecución nos dé la 
medida de los ángulos agudos de un triángulo rectángulo 
expresados en grados sexagesimales dados los catetos 
del mismo. 


134. Escribir un programa que convierta un número 
de 3 cifras dado en una base cualquiera a su expresión 
en base decimal. 


135. Se llama media aritmética de los números: a dr... 
e... a, al número 


a +a +. . .+a 
EZ n 
m = 


a n 


y se llama media geométrica de los mismos al número 


Escribir un programa en el que dados 5 números positi- 
vos cualesquiera dé como resultado su media aritmética 
y su media geométrica. 
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136. Dado un cuadrado de lado a, hacer un programa 
cuya ejecución nos dé: 

a) Perímetro del cuadrado. 

b) Area del cuadrado. 


€) Perímetro del círculo inscrito. 

d) Area del círculo inscrito. 

e) Perímetro del círculo circunscrito. 

f) Area del círculo circunscrito. 

g) Area de la corona circular determinada por ellos, 


*137. Dados dos números naturales a y b distintos de 
cero hacer un programa cuya ejecución nos dé el cocien- 
te y el resto de dividir a por b. 


138. Si una persona tiene una cuenta con un saldo 
de 124368 ptas., hacer un programa cuya ejecución 
pregunte la cantidad que quiere ¡ingresar O sacar e 
imprima después el nuevo saldo. 


139. Escribir un programa que pregunte el precio de 
un artículo, el tanto por ciento de descuento e imprima 
la cantidad a pagar. 


*140. Escribir un programa que calcule la suma de n 
términos de una progresión aritmética preguntando 
el primer término, la diferencia y el número de térmi- 
nos a sumar. 


S-, E - a = a,+(n-1)d)) 
n n 1 


141. Hacer un programa análogo al anterior para una 
progresión geométrica de razón positiva y distinta 
si a _r-a 

n 1 n-1, 


A AO 


142. Hacer un programa en el que dada una fuerza en 
Newtons pase a dinas y kilopondios. 


(1 Newton = 1/9,81 kilopondios = 10? dinas) 


143. Siendo la ecuación de un movimiento: 

e. 243t+2,5t2 
(t en segundos, e en metros), hacer un programa para 
hallar el espacio recorrido en un tiempo t. Aplicarlo 
a los siguientes casos: 
a) 2,6 seg.; b) 142 min. 3 seg.; c) 14 min. 


144. La velocidad media de un móvil entre los tiempos 
ty y t, es 


e,-e ; ' 
de 2 1 ¡espacio recorrido 
m tt, tiempo empleado 
Si la ecuación del movimiento es e = 28? + (5/2)t + 8 


escribir un programa que nos dé la velocidad media 
para dos instantes cualesquiera ty Y t): 


145. La intensidad de una corriente continua viene 
dada por 1= V/R (amperios), siendo V la diferencia 
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de potencial en voltios y R la resistencia en ohmios. Es 
cribir un programa que nos dé la intensidad para cual- 
quier número de voltios y de ohmios. 


146. Hacer un programa cuya ejecución nos dé la resis- 
tencia resultante de conectar 3 resistencias en parale- 
lo. Aplicarlo a los casos: 


a. 20 0. 3530 y 70 

b) 1,60, 52M y 6,220 

cy E: 0,60 y 3,20 
1 1 1 1 
SS PAD A 
R OR RR, 


147. Hacer un programa cuya ejecución nos dé la capaci-- 
dad resultante de conectar 2 condensadores en serie.Apli 
carlo a los siguientes casos: 
a) 2 pt y 3,5 uf 
c) 6 HE y 2,8 pt 
0 A 
C Cy C, 


) 


*148. La fórmula que nos dá el período T en el movimien- 
to pendular es: 


longitud en cm. 


1 
T = 21y1/g siendo de = 981 cm/s2 


Escribir un programa que nos dé el período para una lon- 
gitud cualquiera. 


149. La relación que hay entre grados centígrados 
y grados Fahrenheit es: 
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C F-32 


100 180 


Escribir un programa que transforme grados centígrados 
en grados Fahrenheit y aplicarlo a los casos: 
aj =199 b.) =1209 


150. Escribir un programa análogo al anterior que 
transforme ¿grados Fahrenheit en grados centígrados 
y aplicarlo a los casos siguientes: 

23) t=2l y. DIT =0 


151. Escribir un programa para hallar el módulo de 


la resultante para unos valores de EMP |, | y a 
según el gráfico adjunto. 
EA 1£, | +1£,| > 21£, | [£,| cos(T-a)) 


*152. Escribir un programa para que en el tiro parabólico 
representado en el gráfico adjunto: 
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halle: 


a) 


Las componentes de la velocidad en un 


cualquiera. 


b) 


instante 


Las coordenadas del proyectil en este instante. 


(v 


Xx 


8 


(v_cos a, v sena - gt), 


(v tcos a, vt sena - 
O O 


8 alss 


gt_ ) 
2 


, 


5 
SALTOS Y BIFURCACIONES 


1. Sentencia GO TO (ir a) 


Hasta ahora los programas se ejecutaban en rig 
roso orden de numeración. Sin embargo en algunos cas 
es conveniente en una cierta línea saltar a otra ant 
rior oO posterior alterando el orden de numeració 
En BASIC existe para esto la sentencia GO TO. 


Con esta sentencia el ordenador dirige la ejec 
ción del programa a la línea indicada. 
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Actúa de la siguiente manera: 


Si en un programa aparece 


5) GO TO 28 


al llegar a la línea 5% vuelve a la 2% y continúa 
a partir de la misma. 


Ejemplo 


Mediante el siguiente programa: 


1% REM CUADRADOS DE LOS NUMEROS NATURALES 
20 LET A=0 

30 LET Y=A*A 

40 PRINT A,Y 

SÓ LET A=A+1 

6% GO TO 30 

7% END 


cuyo organigrama es: 


Aumentar 
A en 1 


aparece en pantalla: 


O 0 
1 1 
2 4 
3 9 
4 16 


Nótese que este proceso no acabaría nunca. Se 
dice que ha entrado en un bucle sin fin. Si queremos 
parar la ejecución del programa tendremos que pulsar 
el comando BREAK (romper). 


Si después de pulsar BREAK queremos que la eje- 
cución del programa continúe tendremos que pulsar 
el comando CONT. 


Ejemplo 


En el último programa de la primera pregunta 
del Tema IV, si añadimos la sentencia: 


35 GO TO 19 
quedando 


1% INPUT B,A 


20 PRINT "BASE = “¿B., "ALTURA = "y A 
30 PRINT "AREA = " ; Bx*A 

35 GO TO 10 

49 END 


después de imprimir el área de un rectángulo espera 
que le demos otra vez la BASE Y ALTURA, sin necesidad 
de pulsar RUN. 


Se puede utilizar GO TO como comando de la si-— 
guiente manera: 


Si pulsamos GO TO n empieza a ejecutarse el programa 
en la línea n. 
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GO TO n es equivalente a RUN n con la diferen- 
cia de que GOTO n no borra las variables. 


2. Operadores de relación 


Se “llaman así a los operadores que comparan 
dos números, dos variables (numéricas o alfanuméricas) 
o dos expresiones. 


Son: 


igual que 


< menor que 

> mayor que 

<= menor o igual que 
>= mayor o igual que 
<> distinto de 


Se utilizan mediante PRINT (en forma de sentencia 
o de comando) o bien con la sentencia IF ... THEN... 
que veremos en este Tema. 


Escribiendo 


proposición 


dará O si la proposición es falsa y 1 si es verdadera. 
En algunos ordenadores estas respuestas numéricas 
son distintas, dando / si es falsa y -1 si es verdadera. 


133 


Ejemplos 

a) PRINT 4 = 3 dará como resultado Q 

b) PRINT 4 2 = 6 dará como resultado 1 
Cc) PRINT 4 * 3 > 2f dará como resultado Q 
d) PRINT 4 < 4 dará como resultado 1 


e) PRINT -3.2 < SQR(5) dará como resultado 1 
£) PRINT x + 4 = y + 7 dará 0 ó 1 dependiendo de los 
valores que tengan las variables x,y 


Para comparar cadenas en las que entren los 
caracteres: espacio, números del Y al 9 y letras del 
alfabeto hay que tener en cuenta que el ordenador 
las considera en el siguiente orden: 


Para comparar las cadenas Af y B$ lo hace de 
la siguiente forma: 


1) Si el primer carácter de Af es menor que el primero 
de B$ >=  A$<Bf. 


Si el primer carácter de A$ es mayor que el primero 
de BB ==  A5>Bf. 


2) En caso que ambos primeros caracteres sean iguales 
pasa a comparar los segundos y asi sucesivamente 


hasta que uno que sea mayor que el otro. 


3) Si en este proceso una de las cadenas se acaba an- 
tes, ésta es la menor. 


Ejemplos 


a) PRINT 'm'<'"n" dará como resultado 1 
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b) PRINT "a'" ="A'" dará como resultado Q 
c) PRINT ''Mama''< 'mama'' dará como resultado 1 
d)  PRINT ''32"<"9'" dará como resultado 1, puesto que 


al comparar los dos primeros caracteres el primero 
es menor que el segundo. 


e)  PRINT "ALA"="A LA" dará como resultado /, puesto 
que el segundo carácter de la primera cadena es ma- 
yor que el segundo carácter de la segunda cadena. 


En el Tema X completaremos la ordenación de las 
cadenas con todos los caracteres, usando el código 
ASCII. 


3. Operadores lógicos: AND(y) , OR(o) , NOT(no) 


Si P y Q son dos relaciones podemos formar las 
proposiciones siguientes: 


sean P y Q simultáneamente. 


y P OR Q que será verdadera cuando lo 
sea alguna de las dos. 


1) P AND Q que será verdadera cuando lo 


3) NOT  P que será verdadera cuando P 
sea falsa. 


Ejemplos 


a) PRINT 2 = 3 AND 4=2+ 2 dará como resultado Q(, 
puesto que la primera relación es falsa. 
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b) PRINT 5>1 AND "a"<"he" dará como resultado 1, 
puesto que las dos relaciones son ciertas. 

c) PRINT4+1=8 OR 2% 3 = 6 dará como resultado 
1, puesto que la segunda relación es cierta. 

d)  PRINT NOT (4 = 5) dará como resultado 1, puesto que 
la relación 4 = 5 es falsa. 


Nota: 


La expresión NOT n, cuando n es un número entero, 


Ejemplo 


a) PRINT NOT 3 da como resultado -4 
b) PRINT NOT 7 da como resultado -8 
c) PRINT NOT -5 da como resultado 4 


Al pulsar NOT dos veces equivale a dejarlo como 
estaba al principio, es decir: 


NOT NOT 3 da como resultado 3 
NOT NOT -5 da como resultado -5 


En algún ordenador la regla dada para los números 
enteros no es válida. 


Resumiendo 


Vd si PÓ Q son falsas. 
PRINT P AND Q da 
1 si P y Q son verdaderas. 
si P son falsas. 
PRINT P OR Q da d ye 
1 si P ó Q son verdaderas. 
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PRINT NOT P da VD si P es verdadera. 


1l si P es falsa 


PRINT NOT n da -(n+1), 


(n entero) 


4. Sentencia IF...THEN (si ... entonces) 
A AAN. YSL e. ENCONCES) 


Los operadores de relación 
y lógicos se emplean para que el 
ordenador tome decisiones. Para 
ello existe la sentencia 


IF ... THEN 


que se ajusta al siguiente for- 
mato: 


n2 de línea proposición instrucción 


y actúa de la siguiente manera: 


Si la proposición es verdadera efectúa la ins- 
trucción y si la proposición es falsa la ejecución 
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del programa pasa a la siguiente línea ignorando el 
resto de las instrucciones que siguen a THEN. 


Esta sentencia corresponde a las bifurcaciones 


que se han indicado en los organigramas con el sím- 
bolo 


Ejemplos 


a) Si una línea de un programa es: 


IF A>4 THEN PRINT Ax A 
al ejecutarse esta línea se imprimirá el cuadrado 


. 2 4 
de A si A>¿4, en caso contrario pasará a la linea 
siguiente 


b) El programa: 


10 INPUT A 
20 IF A>4 THEN PRINT A*A 


30 GO TO 10. 
4% END 


que corresponde al organigrama 
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lu 


imprimirá el cuadrado de A cada vez que entremos un 
número A>4, esperando a continuación a que entremos 
otro valor de A (es un bucle sin fin). 
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c) El programa: 


1 REM CONTAR DE 1 A 15 
20 LETA=1 

30 PRINT A 

40 IF A = 15 THEN GO TO 70 


5SÓLETA=A+ 1 
6% GO TO 30 
7% END 


correspondiente al organigrama 


Hacer A=1 


Aumentar 


1 imir A 
mprimir e A 


No 


Si 
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imprimirá todos los números maturales del 1 al 15. 


En algunos ordenadores si la sentencia es: 
IF ... THEN GO TO n 
se puede suprimir THEN o bien GO TO; así admiten 


IF 2... THEN 1 


o bien 
LF ¿63.5 GO TO n 
La 'sentencia IF ... THEN admite también el 
formato 


.s.s «eo ELSE —... ... 


n2 línea proposición instrución 1 instrucción 2 


que significa: 


En caso de ser cierta la proposición se ejecuta 
la instrucción 1 y si no es cierta se ejecuta la ins- 
trucción 2. 


5. Dialogando con el ordenador 


Estamos ya en condiciones de hacer un programa 
en el que aparezca un diálogo entre ordenador y usuario. 


Estos 
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programas están basados en hacer preguntas e 


introducir unas variables alfanuméricas (recordar 
que acaban en $). 


10 
28 


30 
40 


50 
60 


7 
80 
90 


100 


110 


120 


130 
140 
150 


160 
170 
189 
190 
2900 
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Son del tipo: 


REM DIALOGANDO CON EL ORDENADOR 
PRINT "Yo soy un ordenador juguetón. Cómo te 
llamas?': PRINT 


INPUT a$ 

PRINT "Hola 0, A A Quieres jugar conmigo? 
Contestame sí o no' : PRINT 

INPUT b$ 

IF BY <> "si"! AND: bE <>"no" THEN PRINT "No 


me has entendido bien, tienes que pulsar si oO 

bien no' : PRINT : GO TO 50 

IF b$ = 'no' THEN GO TO 22/ 

CLS 

PRINT "Asi me gusta. Jugaremos a adivinar números." 
PRINT 

PRINT "El juego consiste en que yo pensaré un 

número entre 1 y 1000 y tú tendrás que adivinarlo." 
PRINT 

PRINT "Para ello te daré pistas diciéndote si 

es menor o mayor. Pero contaré las veces «que 

empleas en adivinar el número pensado.'': PRINT 

PRINT 'Estoy pensando el número" : LET n = INT(RND* 

1090)+1 

PRINT 'Pulsa CONT" 


STOP : CLS 

PRINT "Ahora ya lo tengo pensado. Empecemos el 
juego. El número que he pensado es el ?': PRINT 
LET-h.= 1 

PRINT "Prueba " ; h 

INPUT m: PRINT m 

IF n>m THEN PRINT "Es mayor. Prueba otra 


vez.'': LETh=h+1s:s6GO0 TO 170 

IF n<m THEN PRINT "Es menor. Prueba otra 
vez'': LET h=h+1: GO TO 170. 
IF n=wm THEN PRINT "Has acertado en la prue- 
ba "; h : PRINT : GO TO 230 
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220 PRINT "Bien, si no quieres jugar puedes dejar 
el sitio a otro. Ya jugaré contigo otro día" 
230 END 


Obsérvese que al final de algunas líneas está 
la sentencia PRINT. Sirve para dejar una línea en 
blanco. 
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EJERCICIOS RESUELTOS 


V.1. ¿Es cornnecta la línea 


190 IF X>8f THEN GO TO "156" ? 


Solución 


No es correcta pues 15/ debería ir sin comillas. 


V.2. ¿Qué impriminá el siguiente programa? 
1$ LET A = 7 
20 GO TO 100 
30 LETA=A-5 
4% IF A<5 OR A>2f PRINT A 
5%ñ STOP 
10$ IF A>8 THEN GO TO 30 
11) LETA=A+ 2 
120 GO TO 100 
130 END 


Solución 


Este programa imprimirá 4. 


V.3. ¿Es conecto el programa 


1f INPUT A,B 
20 LETZ=A-B 
30 IF Z>Q THEN PRINT A ; '" es mayor que ";B 
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4/0 PRINT B ; '" es mayor que ".; A 
50 END 


para que dados dos números distintos nos diga cuál es 
el mayor? 


Solución 


No es correcto, pues se ejecutará siempre la línea 
40, con lo cual en el caso de ser A>B dará siempre 
como resultado 


A es mayor que B 
B es mayor que A 


V.4.Hacen un programa en el cual el ordenador pida un 
número comprendido entre 1 y 31 ambos incluidos. Si el 
número introducido está fuera de este margen imprima 
un aviso y vuelva a pedian el dato de este margen. 


Solución 
El programa es: 
1H INPUT 'Número entre 1 y 31" ; A 
20 IF A<1 OR A>31 THEN PRINT "número fuera 


del margen" : GO TO 10 
3/0 END 


V.5.Escribia un programa que calcule el impuesto a pagar 
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según la cantidad ganada, con los siguientes datos: 
Debe pagar el 10% si la cantidad es menor o igual que 
15000, el 15% si es mayor que 15000 y menor o igual 
que 45000 y el 20% si es mayon que 45000. 


Solución 


El programa es: 


1% INPUT 'Catidad ganada";C 


20 IF C<= 15000 THEN PRINT "Il = ";CxQ.1 
30 IF C>1500M0M AND C<= 45PPQ THEN PRINT "I="; 
0+015 
40 IF C>45000 THEN PRINT "Il ="; Cx*x 0.2 
SH END 
Xx * 


V.6. Hacer un programa que pida tres cadenas y las es- 
cuba en orden alfabético. 


Solución 


El organigrama es: 
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Entrar las 
tres cadenas 


Es la 
menor que 
la 12 
? 


No 


Es la 
menor que 


la 22 
2 


No 


Escribir 
18. 2E.- 33 
en este orden 


Si 


Si 


Si 


Intercambiarlas 


Intercambiarlas 


Intercambiarlas 
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El programa es: 


1f$ INPUT p$ ,s$ , t$ 
29 IF s$<p$ THEN LET i$ 


p$ : LET p$ = s$ 


LET s$ = if$ 

30 IF t$<p$ THEN LET i$ = p$ : LET p$ = t$ 
LET t$ = if$ 

40 IF t$<s$ THEN LET i$ = s$ : LET s$ = t$ 
LET. €$. =$ 

50 PRINT p$ 

6% PRINT s$ 

70 PRINT t$ 

8/0 END 


Obsérvese que este proceso es válido para un 
número mayor de cadenas. 


V.7. Hacer un programa que escriba los 20 primeros ténmi- 
nos de la progresión aritmética a EA (n-1).5. 


Solución 


El organigrama y programa correspondientes son: 
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Hacer n=1 


Calcular a 
n 


Si No 


Aumentar 
nen 1 
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1 REM PROGRESION ARITMETICA 
20 LET N= 1 

30 LET AN = 4 + (N-1)*5 

40 PRINT "A" ; N ; "=" ; AN 
50 IF N = 20 THEN GO TO 80 
6 LETN= N+ 1 

70 GO TO 30 

8% END 


Con este programa aparece en pantalla: 


V.8. Hacen un programa para resolver una ecuación de ¿ 
grado en el caso general. 


Solución 


El organigrama y programa correspondientes son: 
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Calcular 
D = B2-4AC 


Si No 


Imprimir 
las raices 
son complejas 


Imprimir 
las raices 
son reales 


Calcular 
(-8+40)/2A 
(-B+VD)/2A 


X1 


x2 
Calcular 


-8/2A 
H/2A 


Imprimir 


X1  X2 


Imprimir 
X1 =Z+Ti 
X2 = Z- Ti 
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1f REM RESOLUCION DE LA ECUACION DE SEGUNDO 


GRADO 
20 INPUT A,B,C 
30 LET D=Bx*B-4xAx*C 
40 IF D<Q THEN GO TO 110 
50 PRINT "LAS RAICES SON REALES" 
60 LET E = SQR(D) 
70 LET X1 = (-B+E)/(2 +A) 
80 LET X2 = (-B-E)/(2 xA) 
90 PRINT "X1=";X1 , "X2=""5X2 
100 GO TO 160 


11 PRINT "LAS RAICES SON COMPLEJAS" 


120 LET H= SQR(-D) 
130 LET Z. = -B/(2 w A) 
140 LET T'.= H/(2 *A) 


150 PRINT '"X1-=" ; Z ; nn ; T nin ; "nx2-" 
Z ; ”'n_" ; T ; nin 
169 END 
Poniendo. A. = 1 5, B == =7/ y € = 10, ¡aparece en 


pantalla: 


LAS RAICES SON REALES 
Xl:= 3 XL 2 


V.9.Escribia un programa para obtienen el máximo relativo 
de la función f(x) = -x*+11x-10 con un ennorn menor que 
una centésima para la x y que se halla en el intervalo 


[7,70]. 


Solución 
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El método consistirá en hallar f(x) desde x 


sd 


incrementando la x en 0,01. Se observa la correspondien- 
te f(x) hasta encontrar un valor de f(x) que sea menor 
que el anterior. 


El programa es: 


10 
20 
39 
40 


LET x = 1 

LET yl = -x+x + 11 xx - 180 
LET x= x.+ 0.01 

LET y2= -x*x + 11 xx - 10 


IF y2> y1 THEN GO TO 20 
PRINT “e= "5%. "EGe)=s "7 yl 
END 


Para otra función habrá que modificar el 


50 
60 
70 
Nota 
grama. 


pro- 
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V.10. Escribir un programa que calcule los 100 primeros 
términos de la sucesión de término general 


N E -= Ny nel 


¿imprimiendo n, y la diferencia entre a, y el límite 
de la sucesión, albiendo que dicho límite es 0,5. 


Solución 


El programa es: 


19 
2 


30 


LET:.1= 1 

LÉT an = (a12 + m < 110,5: (n1t2 + 1)1 
D.5 

PRENT: 1: 3. TABCO)S "a? s.m y "sos. an $ 


TAB(2M); an - Q.5 

IF n= 100 THEN GO TO 70 
LET n = n+1 

GO TO 20 

END 


v.11. La derivada de una función en un punto es: 


Hacer un 


£(x):=:E(4) 
Xx = a 


f'(a) = li 


x ->a 


en el que aparezcan los términos 


grama 
de la sucesión la + 1/n) que tiende a a y comprobar que 


sen'(a) = cosía) 
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Solución 


El programa es: 


10 
20 
30 
49 
50 
69 
70 
89 
9 


INPUT a 
LET n= 1 
LET x= a+ 1l/n 


LET y = (SIN(x) - SIN(a))/ (x - a) 
PRINT x ; TAB(2P); y - COS(a) 

IF y - COS(a)<0.D00P001 GO TO 9 
LETn=m+1 

GO TO 304 

END 
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EJERCICIOS PROPUESTOS 


153. ¿Es correcta la línea de programa: 


18% GO TO 238 IF X>Pf ? 


154. ¿Cómo se escribiría en una línea de programa 
la siguiente instrucción?: 


Si x<y<z entonces h = z - y 


155. ¿Es correcta la siguiente parte de programa: 


140 IF X>10 THEN 150 
15$ LET Z= Xx* Y 


si se pretende asignar a la variable Z el valor Xx*Y 
sólo en el caso de ser X>10 ? 


156. ¿Es correcta la instrucción 
IF X<f$ OR Y<Q THEN PRINT 'No tiene solución" 


para que imprima este mensage si uno sólo de los dos 
X ó Y es negativo? 


157. ¿Qué ocurriría si en un programa aparece la siguien 
te línea? 


5g GO TO 50 
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158. Una parte de un cierto programa es: 


109 GO TO 129 
11% PRINT "Fijate bien" 
120% PRINT '"Repasa un poco" 


Sin saber lo que hay en las líneas anteriores de la 
100, ¿podemos asegurar que nunca se escribirá la expre- 
sión "Fijate bien''? 


159. ¿Qué daría como resultado la ejecución del si- 
guiente programa?: 


10 LET N 
20 PRINT 
30 LETN=N+2 
40 GO TO 20 

5% END 


Z 


Dibujar el organigrama correspondiente. 


160. En el siguiente programa: 


1H INPUT A 

20 IF A>= 6N THEN PRINT "Hola': STOP 
30 IF A<= 4M THEN PRINT "Adios": STOP 
4/ PRINT "Otra vez será" 

5 END 


Explicar cuál: sería el resultado cuando el número 


A introducido es: a) menor o igual que 4/0, b) mayor 
que 40 y menor que 68, c) mayor o igual que 60. 


161. Escribir una línea de programa que haga lo siguien- 
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te: Si una variable A es par y mayor que 40 la imprime. 


162. Escribir un programa en el que entrando un número 
natural cualquiera, si es par que dé como respuesta el 
mismo «número aumentado en 100, mientras que si es 
impar imprima el triple de dicho número. 


163. Hacer un programa que escriba 1000 veces '"Arbol se 
escribe- sin A”, 


164. ¿Para qué sirve el siguiente programa?: 


1 INPUT '"Nombre:';N$: INPUT "Primer apellido:";P$ 
20 LETX=0Q : LET M-Q 

3% INPUT "Asignatura:";A$: INPUT "Nota:";N 

40 LETM=M+N 

50 IF X = 7 THEN GO TO 80 

6 LET X= X + 1 


7H GO TO 30 

8% PRINT 'La nota media de '""'¿¡N$;" ";P$; 
las UEM 

9% END 


165. ¿Qué daría como resultado la ejecución del siguien- 
te programa? : 


10 LET 1 =-1 

20 PRINT TAB(I);1 

30 LET II = 11 

40 IF 1<= 2 THEN GO TO 20 
5/ END 


166. ¿Qué imprimiría la ejecución del siguiente pro- 
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grama? : 


1) LET N= 1 

2/0 PRINT TAB(N)¿N 

30 LETN=N+ 1 

40 IF N >1fM THEN GO TO 70 
5) GO 20 

70 LETN=N-1 

80 PRINT TAB(N)¿N 

9 IF N>Q THEN GO TO 70 
100 END 


167. Escribir un programa que dé como resultado el valor 
de una compra y el valor a pagar con un descuento según 
la tabla siguiente: 


-Si el valor de la compra es menor que 1000 ptas. 
el 2% 

-Si es mayor o igual que 1000 ptas. y menor que 
5000 el 3%, 

-Si es mayor o igual que 5000 ptas. y menor que 
10000 el 5% 

Si es mayor o igual que 10000 ptas. el 8% 


*168. Hacer un programa que pida tres números distintos 
e imprima el menor de ellos. 


*169. En una tienda hay 10 clases de artículos: A1,A2,A3, 
A4,A5,A6,A7,A8,A9,A10M. El número correspondiente de uni- 
dades de cada uno és: 4d, b, Cs, di €, £, Es h, 1, ]. 


Hacer un programa en el que introduciendo a,b,...+.,j y el 
número de unidades vendidas a cada cliente, imprima al 
final del día el número de unidades que queda de cada 
clase. 
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170. Escribir un programa que pida al usuario n números 
positivos e imprima la suma de todos ellos. (El usuario 
indicará que se han acabado los datos introduciendo el 
número -1). 


171. Escribir un programa que imprima la letra L con 10 
asteriscos de altura por 7 de base. 


172. Hacer un programa para obtener una tabla de números 
naturales y sus raices cuadradas. 


173. Hacer un programa para obtener una lista de los 
números naturales y sus cuadrados del 1 al 20. 


174. Escribir un programa en el que entrando 3 números 
distintos cualesquiera, dé como resultado su ordenación 
de menor a mayor. 


*175. Escribir un programa que imprima unas tablas de 
trigonometria de grado en grado desde 0%2 a 902 en co- 
lumnas con el siguiente formato: 


(Recordar que el ordenador funciona en radianes) 
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176. Escribir un programa que ¡imprima los valores 
de la función seno desde 302 hasta 452 dando los resul- 
tados de 30' en 30'. 


177. Escribir un programa que imprima una tabla de 
logaritmos en base 7 del 1 al 100 dejando un espacio 
cada cinco resultados. (108, x = LN x/LN 7). 


*178. Escribir un programa que imprima los términos 
de la sucesión a, = (1+1/n)” 


179. Escribir un programa que imprima las tablas de 
multiplicar del 7 y del 9 desde 1 hasta 10. 


ed Las Ad me: cl la unidad imaginaria son: de = 1, 
n : ¿ 
e -i. Para n>4 es i = i siendo 
E Si resto de dividir n por 4. 


Escribir un programa en el que entrando un número 
natural cualquiera, imprima el resultado d» i 


181. En una cierta asignatura, la calificación final 
del curso se calcula así: Nota =(El + 2.E2 + 3.E3)/ 6 
siendo El la nota de la 12 evaluación. E2 la de la 22 
y E3 la de la 3%. Escribir un programa que sirva para 
evaluar esta asignatura. 


182. Escribir un programa en el que introduciendo el 
peso de cada una de las personas de un conjunto, imprima 
el número de las que pesen entre 65 y 70 Kg. (exclu- 
yendo los extremos). 
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183. Escribir un programa que imprima el valor de 
la suma: 


La e LA ars e IA 


*184. Hacer un programa que genere 1000 números enteros 
al azar del 1 al 100 (los dos inclusive) e imprima 
cuantos de ellos están comprendidos entre el 41 y 60 
(los dos inclusive). Comprobar si la frecuencia relati- 
va se acerca a la probabilidad que en este caso es 0,2. 


185. Hacer un programa en el que introduciendo un 
número, pruebe si su cuadrado es menor que 2112, y 
en este caso halle: 


a) El radio del círculo que tiene por área el cua 
drado de dicho número. 


b) La longitud de la circunferencia correspon- 
diente. 


En caso contrario, calcule la diferencia que hay entre 
el cuadrado de dicho número y 2112. 


186. Escribir un programa que dé las imágenes de la 


función 
/ 2 
Ñ x +x+1 
ci x+3 


para valores positivos de x de décima en décima parándo- 
se cuando el valor de la función sea mayor que 103,4. 


187. Escribir un programa en el que dando el peso (P) 
de un cuerpo, su volumen (V) y la densidad (D) del 
fluido en el cual se sumerge, averigúe si flotará 
0 se hundirá. 
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188. Escribir un programa que dé los 20 primeros, térmi- 
nos de una progresión geométrica (a, a ay ) y la 
suma de los mismos. Se entrará el primer término y 
La razon, 


+ 
“189. Hacer un programa para calcular el factorial de 
un número entero positivo (n! = n(n-1)(n-2).....2.1). 


190. Escribir un programa en el que entrando un número 
natural mayor que 1, responda si dicho número es primo 
o compuesto. 


*191. Escribir un programa que halle los factores primos 
de un número entero positivo mayor que 1l. 


192. Escribir un programa que calcule el máximo común 
divisor de dos números a y b enteros positivos, siguien- 
do el organigrama del algoritmo de Euclides de la 
pregunta 2 del Tema III. 


193. Para calcular el número Tr, Vieta (1540-1603) 
utilizaba la sucesión: 


2.  v2  v2+y2 2 +42 + y2 
e e 


E 2 eo... 


Escribir un programa que calcule el número T utilizando 
dicha sucesión, escribiendo los sucesivos términos 
de la misma. 


BUCLES 


1. Sentencia FOR-NEXT 


Si queremos confeccionar la tabla de multiplicar 
del 7 desde 1x0Q hasta 7x10, podemos escribir 
el siguiente programa: 


10 LET X=P 

20 LET Y=7 

30 PRINT Yz"x"3X3"=";5Yx*X 
40 LET  X=X+1 

SA IF X<=1fM THEN GO TO 30 
6% END 


cuya ejecución da 
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Obsérvese que este programa consiste en multipli- 
car 7 por X variando de la X desde O hasta 10. 


La sentencia FOR-NEXT resuelve problemas de 
este tipo de forma más directa. 


Utilizando esta sentencia el programa anterior 
podría escribirse de la siguiente manera: 


10  LET Y=7 
20 ES X=P TO 10 


30 | PRINT Y¿"*";X3"=";YxX 
4% LUNEXT X 
50 END 


Las líneas 20, 30 y 4% forman un bucle que se 
inicia para X=0 repitiéndose este hasta X=1/0 aumentando 
X de 1 en 1. 


Cuando la ejecución del programa pasa por la 
línea 20 asigna a X el valor 0 y almacena en memoria 
el valor 10. 


La instrucción NEXT X tiene 3 funciones: 


1) Aumenta X en 1. 

2) Observa si la nueva X es menor co igual que 10. 

3) En caso afirmativo envía la ejecución del progra 
a la línea 30. En caso contrario continúa la ejec. 
ción del programa en la línea siguiente del NEXT. 


El formato de esta sentencia es: 


105 


variable 1 expresión 1 expresión 2 


FOR 
(desde) (hasta) 


bucle 


NEXT 
(siguiente) 


variable 1 


En general cuando la ejecución del programa 
pasa por FOR asigna a la "variable 1' el valor de 
la "expresión 1' y almacena en memoria el valor de 
la "expresión 2". 


La instrucción NEXT ... tiene 3 funciones: 


1) Aumenta la 'variable 1" en 1. 

2) Observa si la nueva '"'variable 1' es menor o igual 
que la "expresión 2". 

3) En caso afirmativo envía la ejecución del programa a 
la línea que sigue al FOR. En caso contrario sigue 
la ejecución del programa en la línea siguiente del 
NEXT. 


Nota 


En algunos ordenadores en el caso de que aparezca 
un solo bucle en el programa, basta poner NEXT al 
final del bucle, es decir, se puede omitir el poner 
la "variable 1'. En caso de aparecer varios bucles si 
no ponemos el nombre de la variable al cerrarlos con 
NEXT, el ordenador entenderá que debe cerrar en el 
orden inverso al de la entrada como si se tratase 
de paréntesis. En otras palabras, en caso de haber 
más de un bucle, el primer NEXT sin variable cierra 
el más interior. 
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Puede haber un bucle dentro de otro, se llaman 
entonces bucles anidados. 


Ejemplos 
a) 
14 FOR A = 1 TO 3 
20 FOR B = Q TO 5 
30 | PRINT "N=" ; 1*A + B 
40h NEXT B 
SO | PRINT 
6H NEXT A 
79 END 


Obsérvense que para cada valor de A, B tiene 
que tomar los valores desde O hasta 5. Así en pantalla 
tendremos: 


ZZZZZZ 
il 
pus 
¡05 


ZZZZZZ 
tl 
N 
N 


ZZZ2ZZZ22Z 
1! 
09) 
159) 


b) 
Un programa sencillo para que en pantalla apa- 
rezcan todos los capicúas de tres cifras es: 
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10 FFOR X= 1 TO 9 


20 FOR Y = f TO 9 

30 | error 100 X + 1Q Y + X 
40 NEXT Y 

5 NEXT X 

60 END 


Con este programa aparece en pantalla: 


191 
111 
12] 


989 

999 
En los ejemplos anteriores aparecen dos bucles 
"anidados'', es decir, que en el mismo programa aparece 
un bucle dentro de otro bucle. Pueden anidarse más 
de dos bucles cuando no se interfieren unos con los 


otros. 


Son correctos los siguiente bucles anidados: 
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No son correctos: 


Za STEP (paso): Incremento de la variable 


En la sentencia FOR X = N TO M, los distintos 
valores que va tomando la variable X se incrementan 
en una unidad. Si queremos modificar este incremento 
lo podemos hacer de la forma siguiente: 


Si escribimos 


FOR X = N TO M STEP H 
NEXT X 


NEXT X incrementará X en H. 


Ejemplo 


Para escribir los cuadrados de los primeros nú- 
meros impares podemos ejecutar el programa: 
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10 E X = 1 TO 19 STEP 2 


20 | PRINT "EL CUADRARO DE" ; X ; " ES " ; X12 
30 LNEXT X 
40 END 


No es necesario que el incremento sea un número 
entero. Si por ejemplo quisiéramos obtener unas tablas 
de valores de la función f(x) = sen x desde 0% hasta 302 
aumentando cada vez un grado, y teniendo presente 
que el ordenador trabaja en radianes, pasaremos los 
grados a radianes y dicha tabla nos la proporciona 
el siguiente programa: 


10 REM TABLA DE LA FUNCION SENO DESDE Q A 30 


20 p FOR X = 0 TO 7/6 STEP 1/180 

30 E "Sen "3 X *180/rT ¡; "= " ; SIN(X) 
49 L NEXT X 

5Ó END 


Con la ejecución del mismo aparece en pantalla: 
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3. Observaciones sobre la sentencia FOR-NEXT 


Cuando en un programa aparece FOR X = N TO M 
se pueden presentar los siguientes casos: 


a) Si N = M entonces el bucle se realiza una sola vez. 


Ejemplo 
16 FOR X = 5 TO 5 
20 PRINT x13 
3% NEXT X 
406 END 


Con el que aparecerá en pantalla: 


Za 


b) Si N>M y no hay STEP negativo, el bucle se realiza 
una sola vez. 


Ejemplo 
10 FOR X = 6 TO 2 
20 RIN x13 
34 NEXT X 
40 END 


Con el que aparecerá en pantalla: 
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Nota 


En algún ordenador no aparece ningún resultado. 


c) Si N>M pero al ir incrementando N mediante el STEP 
que tenemos en el programa sobrepasa el valor de M, 
se realiza el bucle hasta el último valor anterior 
al M. 
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Ejemplo 
10 pFORN= 5 TO 20 STEP 2 
20 | PRINT N 
30 UNEXT N 
40 END 


En este programa el valor de N va desde el 5 
al 19 de 2 en 2 según el STEP que hemos puesto, pero 
para el siguiente valor, N es igual al 21, es decir, 
sobrepasa el valor de 2/4, por lo que finaliza el pro- 
grama. 


Aparece en pantalla: 


5 
7 
9 
yl 
13 
15 
17 
19 


El formato general es: 


variable 1 expresión1 expresión2 expresión 3 


variable l 
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4. Sentencia PAUSE (pausa) 


Con la sentencia PAUSE (nm) se detiene la ejecu- 
ción del programa un tiempo que depende de n. 


En algunos ordenadores en vez de PAUSE (n) es 
WAIT (n). 


Se puede también utilizar un bucle para conse- 
guir el mismo fin. 


Por ejemplo la línea 
FOR X = 1 TON : NEXT N 


hará una pausa que dependerá del valor de N. En ella 
hay un bucle en el que le ordenamos que cuente, como 
cuando de pequeños jugamos al escondite. En otras 
palabras, le hacemos ''perder tiempo". 


Puede ser útil una pausa para visualizar algún 
resultado durante un tiempo determinado y borrarlo 
después. 


EJERCICIOS RESUELTOS 


vI.1. ¿Hay algún error en el programa siquiente? 


14 FOR n=1 TO 50 
20 PRINT n, n+3, nxn 
3%$ | LET c=5xn 


44 NEXT c 
5 END 
Solución 


Si, puesto que la variable que inicia el bucle 
es la n mientras que lo cierra la variable O 
Daría mensaje de error. 


v1I.2. ¿Es correcto el siguiente programa? 


19 FOR n=1 TO 1f$ 
20 FOR i=1 TO 5 


30 NEXT n 

4  PRINT nt i 

5h NEXT i 

6% END 
Solución 


No pues los bucles están de la siguiente forma: 


que es incorrecta. 
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Vis. 


¿Qué hanía la ejecución del siguiente programa? 


19 LET S=0 

2% INPUT "Escribir un número entero positivo'";A 
30 y FOR n=1 TO A 

49 | ver S=S+n12 

50 LNEXT n 

6f$ PRINT S 

70 END 


Solución 


Imprime la suma de todos los cuudrados desde 


1* hasta Al. 


v1.4. Hacer un programa que imprima una tabla de valo- 
nes de la función 


desde 


$e IE 


x0 hasta x="/4 aumentando de décima en 


décima. 


Solución 


El programa es: 


1% REM TABLA DE VALORES 
20 pr FOR X=M TO 7/4 STEP Q.1 

30 | PRINT X= "sX, "Y= ; SOR(EXP(SIN(X))) 
49 LUNEXT X 

5H END 


VI. S . 
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Hacen un programa que imprima una tabla de los 
números enteros del 1 al 20, sus cuadrados y sus cubos. 


Solución 


El programa es: 


10 PRINT "n'"';TAB(10);"n12";TAB(2P);"n13" 
20  PRINT 
30 “FOR n=1 TO 20 
40 RIN n; TAB(1M);n12;TAB(2/0);n13 
50 ELNEXT n 
60 END 
xxx 
VI.6. Escribia un programa para calculan n! (usando 
FOR-NEXT ) 
Solución 
El programa es: 
1 REM FACTORIAL DE UN NUMERO 
20 INPUT 'Número entero positivo'';n 
3fY  LET F=1 
40 p FOR i=1 TO n 
50 Le F=Fxi 
60 + NEXT i 
7  PRINT "El factorial de aaa "M3P 
89 END 
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VI.7. Hacen un programa que halle los números de tne 
cifras abc tales que 


3 3 


abe = 3? + D +c€ 


Solución 


El programa es: 


14 FOR a=1 TO 9 


20 FOR b=f$ TO 9 

30 FOR c=f TO 9 

40 IF 1MPra+1Pxb+c = arara+ brbrb+cxwcxc 
THEN PRINT 100*ra+1fPxwb+c 

50 NEXT c 

60 NEXT b 

70 NEXT a 

80 END 


La ejecución del programa da los números: 


153, 370, 371, 407 


VI.8. Hacer un programa que halle los números de tres 
cifras de la forma UNO, DOS tales que verifiquen: 


UNO+UNO = DOS 
Solución 


El programa es: 


1 p FOR U=1 TO 9 


20 FOR N=f TO 9 

30 FOR O=f TO 9 

40 FOR D=1 TO 9 

50 FOR S=f TO 9 

60 LET X=Ux*100+N*10+0 
70 LET Y=D*10P+0*1M+S 
80 IF 2*X=Y THEN PRINT X,Y 
9% NEXT S 

100 NEXT D 

110 NEXT O 

120 NEXT N 

130 ENEXT U 

149 END 


La ejecución del programa da los números: 


199 200 125 250 150 300 

112 224 137 274 162 324 

124 248 149 298 174 348 
X kx 


VI.9. Escribia un programa que simule el lanzamiento 
de una moneda y dé como resultado el número de veces 
que ha salido cana y el de veces que ha salido cruz. 


Solución 


El programa es: 
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10 INPUT ''Número de lanzamientos'';n 
20 LET ca=f : LET cr=P 
30 FOR: i=1T0'n 
40 | LET x = INT(RND*2) 
5h IF x=f$ THEN LET ca=ca+1 : PRINT "c" 
60 IF. x=1. THEN LET ecr=scr+1 2 PRINT "3" 
79 NEXT i 
80 PRINT ''Han salido en total:" 
9% PRINT: cas" caras” 
100 PRINT €xr:"" crúces” 
120 END 
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EJERCICIOS PROPUESTOS 


194. ¿Qué es lo que limita el número de bucles que 
puede admitir un ordenador en un programa? 

a) El número de letras del alfabeto. 

b) La capacidad de memoria del ordenador. 

c) El que las variables sean numéricas o alfanuméricas. 
d) Que el ordenador vaya en pilas o conectado a la red. 


195. Si tenemos dos bucles anidados de la forma: 


FOR n=1 TO 10 


FOR m=2 TO 6 


NEXT m 


NEXT n 


¿cuál de los dos acaba antes? 


196. ¿Es posible que en un bucle el valor final de 
las variables sea menor que el inicial? 


*197. ¿Es correcto el programa: 
19 FOR n=1 TO 100 
20 | LET n=n+3 
30 | PRINT n 
49 E NEXT n 


para que n tome los valores desde 1 hasta 1/0? 
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198. Si cambiamos la línea 10 por la 2% en el programa: 


1f FOR n=1 TO 1f 
2H FOR n=1 TO 1f STEP 1 
¿cambiaría el resultado del mismo? 


199. ¿Qué imprimirá la ejecución del siguiente progra- 


ma? 
10 r FOR A=23 TO 5 STEP -2 
20 | PRINT "A = ";A+1 
30 | IF A=15 GO TO 100 
4/0 ENEXT A 
100 END 


* 200. ¿Qué imprimirá la ejecución del siguiente programa? 


19 INPUT X 

29 IF X>6 THEN GO TO 48 
30 py FOR n=1 TO 10 

49 ES X 

5H ENEXT n 

60 PRINT X+4 

79 END 


201. ¿Qué imprimirá la ejecución del siguiente programa? 


10 p FOR n=4 TO 1 
20 | PRINT n 

30 LNEXT n 

40 END 


202. ¿Qué hará la ejecución del siguiente programa? 


10 rFOR n=5 TO 1f STEP 184 
29 | PRINT n 

3% LNEXT n . 

40 END 
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203. En el supuesto de que el ordenador tenga 4 zonas 
impresión en pantalla ¿qué imprimirá el siguiente 
programa? 


de 


1 P FOR n=1 TO 28 

20 | PRINT, N, 

30 FOR 1=2 TO 3 

4h | PRINT N 1(1/1), 
50 NEXT 1 

60 ENEXT N 

79 END 


*204. ¿Qué ocurrirá al ejecutar el siguiente programa? 


205. 


206. 


¿Hay algún 


¿Hay algún 


19 p FOR n=1 TO 20 
2/0 | LET n=n-1 

30 | PRINT n 

40 LNEXT n 

SA END 


error en el siguiente programa? 


10 FOR X=5 TO -3 STEP -1 
20 | LET Y=X12 

39 | PRINT Y 

49 L- NEXT X 

SY END 


error en el siguiente programa? 


1 FOR X=1 TO 10 
20 PRINT X 

3/0 FOR Y=1 TO 5 
40 PRINT Xx*Y 

SA NEXT X 

60 NEXT Y 

70 END 
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207. ¿Hay algún error en el siguiente programa? 


19 LET h=1.4 

20 pFOR n=1 TO 10M STEP h 
30 E nx*xh 

40 LNEXT h 

SO END 


208. ¿Hay algún error en el siguiente programa si se pre- 
tende escribir del 1 al 20? 


10 pFOR X=1 TO 20 
2% | PRINT X 
3% | CO TO 10 
4/N ÉNEXT X 
¿Qué escribirá? 


209. ¿Hay algún error en el siguiente programa? 


10 FOR X=1 TO 10 
20 FOR Y=3 TO 8 
3/0 LET Z=X+Y 

40 NEXT X 

SA PRINT Z 

6% NEXT Y 

70 END 


210. '¿Hay alguna manera de salir del bucle siguiente 


10 FOR n=1 TO 200 
20 | PRINT "Seguro" 
39 LNEXT n 


añadiéndole alguna instrucción? 


* 211. Escribir un programa equivalente al dado utilizan- 
do la sentencia FOR-NEXT. 
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10 LET X=3 

20 PRINT X12+1 

30 LET X=X+1 

40 IF X<=2f THEN GO TO 20 
5% PRINT "FIN" 

6% END 


212. Hacer un programa cuya ejecución escriba 50 veces: 
QUIEN SIEMBRA VIENTOS RECOGE TEMPESTADES, 


utilizando la sentencia FOR-NEXT. 


213. Hacer un programa cuya ejecución imprima todos 
los cubos y las raíces cúbicas de 1 a 100 utilizando 
la sentencia FOR-NEXT. 


214. Hacer un programa cuya ejecución imprima una 
tabla de valores de una función entre O y n (n entero) 
de décima en décima. 


215. Escribir un programa cuya ejecución calcule la 
suma de los -50 primeros números ¡impares utilizando 
la sentencia FOR-NEXT. 


216. Escribir un programa cuya ejecución calcule: 


S:= 1 .> + - + ... + 2 
2 2 
intrando n mediante la sentencia INPUT. 
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217. Escribir un programa cuya ejecución pida las 
notas de matemáticas de 30 estudiantes y dé como resul-» 
tado la media aritmética. 


*218. Dada la progresión geométrica: 
3 


a,» ay, ar ,ajr, 
eE 

hacer un programa cuya ejecución halle la suma de 
los N primeros términos y compare dicha suma con 
el límite que es 


a,/(1-1) 


*219. Dada la figura adjunta 


10 
10 10 
10 
hacer un programa que dé N puntos al azar dentro 


del cuadrado, que calcule la frecuencia relativa de 
los puntos que están dentro de la circunferencia y 
que imprima esta frecuencia relativa multiplicada 
por 4. 


Observar que el resultado así obtenido es una 
aproximación de T. 


(Los puntos (x,y) interiores a la circunferencia 


verifican: 
N(x-5) +(y-5)" <5  ). 
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220. Escribir un programa para comprobar si existe 
algún número de tres cifras de la forma abc tal que 
sea igual a la suma de los cuadrados de sus cifras... 


221. La sucesión de Fibonacci tiene de término general 
a =a 
n n-1 n-2 
siendo a,=0 y a,=1. Escribir un programa que nos 
dé cualquíer término de esta sucesión a partir del 
32, 


+ a , 


222. Escribir un programa que nos dé todos los números 
de 4 cifras en base 4 y su equivalente en el sistema 
decimal. 


223. Escribir un programa que simule el lanzamiento 
de 100 veces un dado y que escriba el número de veces 
que ha salido cada cara. 


*224. Esecribir un programa paja hallar los números 
enteros A,B,C tales que C"=A"+B_ (números Pitagóricos) 
del 1 al 40. 


225. Hacer un programa que escriba todos los números 
de dos cifras en base 3 y sus equivalentes en base 
10. 


226. Hacer un programa para calcular vo si siendo 
y 


V = mí(m-1) ... (m-n+1) 
m,n 
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*227. Hacer un programa para hallar las coordenadas 


de n puntos de la circunferencia de ecuación x"+y“=R 
que sean vértices de un polígono regular. 


Y 
CLA” 
E 
Y) | 


Las coordenadas (x,y) de P vienen dadas por 


X= R. cos a 
y = R sena 


228. Hacer un programa que imprima todos los resultados 
posibles de sumar los cuadrados de los números obteni- 
dos al echar 3 dados. 


* 229. Hacer un programa para averiguar si hay algún 
capicúa de tres cifras que sea igual a la suma de 
los cuadrados de las mismas. 


230. Hacer un programa para averiguar si hay números 
enteros entre 1 y 100 que verifiquen la igualdad 
3 


=b +«ce 


(caso particular del teorema de Fermat). 


231. Hacer un programa que halle los números de tres 
cifras de la forma RIO, MAR tales que verifiquen: 
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RIO + RIO = MAR 


232. Hacer un programa que halle los números de 4 
cifras de la forma MIAU, GATO tales que verifiquen: 


MIAU + MIAU = GATO 


233. Hacer un programa que halle los números de la 
forma HIP, HURRA tales que verifiquen: 


HIP * HIP = HURRA 


234. Hacer un programa que averigue si hay números 
de la forma PIO, POLLO tales que verifiquen: 


PIO * PIO = POLLO 


* 235. Escribir un programa para hallar todos los diviso- 
res (primos o no) de un número dado. 


7 
ALMACENAMIENTO DE DATOS 


Con la sentencia INPUT entramos datos desde 
fuera del programa. Si estos datos son numerosos y 
conocidos de antemano es más cómodo tenerlos almacena- 
dos en una línea de programa. 


Esto se consigue con la sentencia DATA. 


1. Sentencias DATA (datos) y READ (leer) 


Con la sentencia DATA podemos almacenar distin- 
tos datos en un programa, ya sean numéricos o alfanumé- 
ricos. Para ello bastará poner: DATA seguido de 
los datos, separados por comas, con el siguiente forma- 
to: 


n2 de línea dato 1 dato 2 dato 3 
Ejemplo DATA 5,7,"JUANA",18,85 


Para utilizar los distintos datos almacenados 
con la sentencia DATA se utiliza la sentencia READ. 
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READ 
cowsomeE , 


Distec con palalas 


Ejemplo 
10 [DATA 5,7,"Juana'*,18,85 
20 READ X,Y 
30 READ A$,Z,T 
40 PRINT Y,X 
50 PRINT T,A$,Z 
6 END 


La ejecución del programa da como resultado: 


7 5 
85 JUANA 18 


Vemos pues que la misión del READ es leer los 
datos almacenados y asignarlos a unas variables. 


El formato es: 


n2de línea variable 1 variable 2 variable 3 


Cuando en el programa aparece por primera vez 
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una sentencia READ busca el primer dato almacenado 
en la primera sentencia DATA y lo asigna a la primera 
variable de READ y así sucesivamente ..., o sea: 


variable 1 = dato 1 
variable 2 = dato 2 
variable 3 = dato 3 


Cuando aparece una nueva sentencia READ asigna 
a sus variables los datos a partir del último leído 
anteriormente (Es como si los datos se fueran gastando). 


Siguiendo el orden de lectura las variables 
numéricas deben corresponder a datos numéricos y las 
alfanuméricas a cadenas de caracteres de lo contrario 
habrá mensaje de error. 


Al usar pues las sentencias DATA y READ tendremos 
presente que se leerán los datos numéricos o alfanuméri- 
cos en riguroso orden, esto es asi aún empleando el 
mismo nombre de la variable, como veremos en el siguien- 
te ejemplo: 


Ejemplo 
10 :DAPA 17,3,8 356 
20 READ X,Y,Z 
39 PRINT X,Y,Z 
4% READ X,Y,Z 
5Ó PRINT X,Y,Z 
10H END 


La ejecución de este programa da: 


1 2 
5 6 


05) 


Puede ocurrir que se acabe el programa sin haber- 
se leído todos los datos de la sentencia o sentencias 
DATA, con lo cual no pasa nada, solamente que había 
una superabundancia de datos almacenados. 
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Si se acaban los datos almacenados y quedan 
variables en READ aparece mensaje de error. 


Si en el programa anterior añadimos las líneas: 


60 READ X | 
7% PRINT X 


en la ejecución del programa aparece entonces 


1 2 3 
4 5 6 
Mensaje de error. 


Veamos otro caso en el que aparece mensaje de 
error por falta de datos en la sentencia DATA. Puede 
ocurrir fácilmente cuando aparecen las sentencias 
DATA y READ en un bucle como en el ejemplo: 


1 DATA 5,7,12,15,20 
20 READ X 

30  PRINT X,2x*X 

40 GO TO 2f 

SÓ END 


La ejecución de este programa da: 


5 19 
7 14 
12 24 
15 30 
20 40 


Mensaje de error 


Este error es debido a que se ha intentado leer 
un dato que no existe. 


Podemos salirnos de este bucle sin necesidad 
de que nos señale un error, cosa que por otra parte 
nos detendría el programa (y estas líneas pueden ser 
solamente parte de un programa más extenso). Para 
que no aparezca este error en la pantalla, se suele 
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dar en los datos de DATA un valor "ficticio", que 
al tomarlo la variable correspondiente se efectúa 
un salto en el programa. En el ejemplo anterior podemos 
poner un cero en el último valor de DATA e intercalar 
un condicional de la siguiente manera: 


10 DATA 5,7,12,15,20,0 
20 READ X 

25 IF X=f THEN GO TO 50 
30 PRINT X,2x*X 

4% GO TO 20 

SA PRINT "MUY BIEN" 


“= valor ficticio 


Aparece en pantalla: 


5 10 

7 14 
12 24 
15 39 
20 40 
MUY BIEN 


Si tenemos que realizar un programa para calcular 
la media aritmética de uña serie de números, todos ellos 


positivos, es cómodo usar como valor "ficticio" un 
número negativo, por ejemplo -1. 


Ejemplo 
5 REM NOTA MEDIA 
19 LETM=0Q 
E” DATACTO AZ e O DO 
2 E O E 7 AE O 
z E E: O A A A A 


30 READ X | 

40 IF X= -1 THEN GO TO 70 valor ficticio 
5 LETM=M+X 

60 CO TO 30 

7% PRINT "LA NOTA MEDIA ES M= " ; M/25 


80 END 
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Este programa nos da en pantalla: 


LA NOTA MEDIA ES M = 5.236 


Nota 1: 


Puede haber más de una sentencia DATA en un mis- 
mo programa, por ejemplo: 


10 DATA 7 , 9 , "Amarillo" , "Violeta" 
20 DATA "Negro" , 16 , 50 


Su acción es la misma que la única sentencia: 


15 DATA 7 , 9 , "Amarillo" , "Violeta" , '"Ne- 
gro” y 16 y 38 


Nota 2: 


No es necesario que las sentencias DATA y READ 
vayan seguidas como han aparecido en los ejemplos. Es 
cómodo colocar las sentencias DATA todas al principio 
del programa o bien al final del mismo. 


2. Sentencia RESTORE (restaurar) 


Al usar la sentencia READ '"gastábamos los datos 
almacenados en DATA. Si nos interesa emplearlos otra 
vez en el programa, nos basta escribir en el mismo la 
sentencia RESTORE, cuya misión es realmacenar de nuevo 
todos los datos de todas las sentencias DATA del progra- 
ma, de manera que el siguiente READ volverá a leer 
desde el principio. 


Veámoslo en el siguiente ejemplo: 


5 REM USO DE RESTORE 
10" DATA: + Sw 7 
20 READ X 
30 IF X 


e valor ficticio 
-1 THEN GO TO 60 


tl 
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WA PRINTX , X1Q.5 


5 GO TO 20 
6% RESTORE (vuelven a estar almacenados 
70 READ X los números de la línea 104) 


80 IF X= -1 THEN GO TO 110 
90 PRINTX ,X1?2 

100 GO TO 70 

11% PRINT "FIN DEL EJEMPLO" 


Con este programa aparece en la pantalla: 


3 1.7325 
5 2.23607 
7 2.64575 
3 9 
5 25 
7 49 
FIN DEL EJEMPLO 
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EJERCICIOS RESUELTOS 


v11.1. ¿Saldrá mensaje de ennon al ejecutan el siguiente 
programa? 


10 DATA 1 y Bla ss 7 


29 pFOR n= 1 TO 6 
30 [eno a : PRINT a 
4/N ENEXT n 

5 END 


Solución: 


No, pues el hecho de que no se utilicen todos 
los números almacenados en un DATA no produce mensaje 
de error. 


de Le le 
AS 


VIL.2. ¿Qué impriminá la ejecución del siquiente pro- 
grama? 


1 FOR i = 1 TO 4 
20 | READ X 

3/ | PRINT X 

40 | RESTORE 

5 LNEXT i 

60. DATA 5,7,15,21 
79 END 


Solución 


Debido a la línea 40 el READ sólo leerá el primer 
dato 5. Imprimirá 4 veces 5. 


L L Ll 
5 An A 
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VI11.3. ¿Qué impriminá la ejecución del siquiente progra 
ma? 


19 READ X 

20 IF X-1 THEN GO TO 80 
3N IF X=2 THEN GO TO 100 
4 1F X=3 THEN GO TO 120 
5) IF X=4 THEN GO TO 100 
6 IF X=5 THEN GO TO 80 
79 IF X=fM THEN GO TO 150 


80 PRINT TAB(11); "axaxaxrara" 
9%ñ GO TO 1P 

199 PRINT TAB(11); "x";TAB(19);"x" 
11f$ GO TO 14 

12% PRINT TAB(11);"a'";TAB(19);"a" 
13f$ GO TO 10 

149 DATA 1,2,3,4,5,0 

1509 END 


Solución 


L LL L 
SS mn as 


VII1.4. Hacer un programa que introduciendo los 
siguiente números: 2, 14,23,54,60, 37, 125,8,246, 29 
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en una sentencia DATA imprima sólo los panes. 


Solución 
El programa es: 


10 Pp FOR i=1 TO 10 


20 | READ A 

30 | 1F A/2 = INT(A/2) THEN PRINT A, 

40 LNEXT i 

SM DATA 2,14,23,54,60M,37,125,8,246,29 
60 END 


+ 
* 
* 


v1i1.5.én la sentencia DATA de un programa se van ano- 
tando los datos 1,2,3 según las respuestas de una 
cierta encuesta. Si hay 67 datos ¿cómo debe ser dicho 
programa para que al final imprima los tantos porn 
cientos de cada rnesultado?. 


Solución 
El programa es: 


1 LET Al=M: LET A2=f : LET A3=0 

20 y FOR i=1 TO 67 

30 | READ X 

40 | IF X=1 THEN LET Al=A1+1 

50 | IF X-2 THEN LET A2=A2+1 

60 | IF X=3 THEN LET A3=A3+1 

7% E NEXT i 

8% PRINT "Del 1 hay ";¡A1*x100/67;" %" 
9% PRINT "Del 2 hay "¡A2*1M0/67;" %" 
100 PRINT "Del 3 hay ";A3x100/67;" 7" 
110 DATA 1,332,3,1,1,2,2,3 1,3... (hasta 07 datos) 
120 END 


+ 
+ 
* 
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VII.6. Se introduce en un programa las edades de un 
conjunto de  N personas mediante la sentencia DAÍA. 
Completar el programa para que dé: 


a) El número de personas cuya edad esté comprendida 
entre 18 y 28 años [ambos incluidos). 

b) El número de personas de edad superion a 50 años. 

c) La edad media. 


Solución 
El programa es: 


10 LET A=P 

20 LET B=Q 

30 LET T=Q 

40 pFOR i=1 TO N 

5 | READ X 

60 | LET T=T+X 

70 | IF X>=18 AND X<=28 THEN LET A=A+1 
80 | IF X>5/0 THEN LET B=B+1 


9% ÉNEXT i 

199 PRINT '"Número de personas de edad 
entre 18. y 2d. .="" 3 A 

11 PRINT ''Número de personas de edad 
mayor que 5f = " ; B 

120 PRINT ''Edad media = "; T/N 

13% DATA ... (Edades de las N personas) 

149 END 

xxx 


vI1.7. Hacer un programa que tenga almacenados con 
DATA los nombres de las estaciones de cada línea de 
metao de Barcelona y que intaoduciendo el número de 
la línea dé como resultado todas las estaciones de 
la misma en orden, con los enlaces respectivos. 


Solución 


El programa es: 
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1 INPUT ''Qué línea desea consultar'"';A 

20 PRINT "Las estaciones de la línea MA, 
PRINT 

30 pFOR i=1 TO 82 

40 | READ N, E$ 

50 | IF N=A THEN PRINT E$ 

6 ENEXT í 


YO DATA 1, "Torrasa",1,'Santa Eulalia",1, "Mercat Noú", 
1,"P. de Sants (enlace con linea 5)'",1,'"Hostafrancs' 
1,"Espanya-. (enlace con línea 3)",1,"Rocafort",l, 
"Urgell'",1,"Universitat'",1,'Catalunya (enlace cor 
línea 3)'',1,'Urquinaonal(enlace con línea 4)" 

B0 DATA. -Lk, "Arc de Triomt*",1,"Marina",1. "Glorias", 1, 
"Clot"yL, "Navas", 1, "Sagrera (enlace con línea 5),1, 
"Fabra y Puig',1,'Sant Andreu'',1,'"Torras y Bages",1l, 
“Trinitat Vella".,1., "Baró de Viver". 1, "Santa Coloma" 

90 DATA 3,"Zona Universitária'",3,"Palau Reial'",3,"Maria 
Cristina".o,. "Les Corts'"”,3: "Ps del :Centre"”.,3, Sants= 
estació (enlace con lina 5)',3,"Espanya (enlace 
con. lína 1)",¿3.,"Poble Sec" 3. "Parál, tel", 3 "Drassa= 
nes'",3,"Liceu',3,"Catalunya (enlace con línea 1)" 

100 DATA 3,"Passeig de Grácia (enlace con línea 4)',3, 
"Diagonal (enlace con línea 5)'",3,'"Fontana",3,'"Les- 
seps'',4,"Roquetes'',4,''Llucmajor'',4,'"Maragall (enlace 
con linea 5)',4,."Guinardo"",4."Alfons X",4,"Joanich" 

119 DATA 4,"Verdaguer (enlace con línea 5)',4,'"Girona", 

- 4,"Passeig de Gracia (enlace con línea 3)'",4,'"Urqui- 
naona (enlace con línea 1)'',4,'"Jaume 1',4,'"Barcelo- 
neta'"',4,'"Ciutadella'',4,'Bogatel1',4,'"Llacuna",4,''Po- 


blenou"' 
120 DATA 4,"Selva de Mar'",4,"Mina",4,"Bessós"”,4, "La 
Pau",5 “Cornelta'",5,'"Gavárra", 53, "Sant TIldefons",5, 


“Gan. Boixeres",3, "Gan Vidalat",o,"Pubilia Cases”, o, 
"Coliblanch'"",5."Badal",5,"P.ude Sants (enlace con 1i= 
nea 1)" 

130 DATA 5,'"Sants-estació (enlace con línea 3)",5,'"Enten 
ca",3,"Hospital Clinic'',5,'Diagonal (enlace con 
línea 3)'",5,'"Verdaguer (enlace con línea 4)'",5,'"Sa- 
grada Familia" 

149 DATA 5,'"Hospital de Sant Pau',5,''Camp del arpa",5, 
"Sagrera (enlace con línea 1)'",5,'Congres',5,'"Mara- 
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gall (enlace con línea 1)",5,"Virrei Amat'"',5,'"Vila- 
pistina”, o, Horta" 
159 END 


VI1.8. Escribin un programa que teniendo almacenados 
con DATA el Nombre, Edad, Estado civil, número de 
hijos y sueldo de los empleados de una empresa imprima 
el nombre de aquellos que su edad esté comprendida 
entae 22 y 35 años [ambos inclusive) y son s0lternos. 


Solución 


Siendo .N el número de empleados, el programa 


es: 
10: FOR. I=1 TON 
2 | READ N$,E,C$,F,S 
30 | IF(E>=22 AND E<=35) AND C$="'S" THEN 
PRINT N$ 
4/ LNEXT I 
5. DATA "José. Garcia Pérez", 23,"5",0, 
80000,... (hasta N empleados) 
Nota S significa: soltero 


C significa: casado 
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VII.9. Con los mismos datos del problema anterior modi- 
fican el programa de manera que UE la lista de 
los nombres de los casados con más de 2 hijos y con 
sueldo inferniorn a 80000 ptas. 


Solución 


En el programa anterior basta cambiar la línea 
30 por: 


30 IF C$="'C'" AND F>2 AND S<8000Q THEN PRINT N$ 
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EJERCICIOS PROPUESTOS 


236. Si en un programa hay n líneas con la sentencia 
READ ¿deben haber forzosamente n líneas con la senten- 
cia DATA? 


237. ¿Pueden mezclarse en una línea DATA cantidades 
numéricas y cadenas de caracteres? 


238. La entrada de datos en un programa podemos efec- 
tuarla mediante las sentencias INPUT o DATA. ¿Cuándo 
emplearemos una u otra? 


239. ¿En qué orden hay que escribir las sentencias READ 
y DATA? 


a) Necesariamente READ antes que DATA. 

b) Necesariamente DATA antes que READ. 

c) Es indistinto el orden para la ejecución del progra- 
ma . 

d) Necesariamente la DATA al final y READ al principio 
del programa. 


Razonar la respuesta correcta. 


240. ¿Es cierto que una vez utilizado un número almace- 
nado en un DATA, nunca puede volver a utilizarse? 


*241. ¿Hay algún error en el siguiente programa? 


242. ¿Hay 


*243. En el 
corregirlos. 


19 
20 
30 
49 
50 


244. ¿Hay 


19 
29 
30 


245. Hallar 
gramas: 


a) 10 
20 
30 


40 
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READ B,C 

PRINT B,C 

READ A$ , B$ 

PRINT A$ , B$ 
DATA 1,2,3,"libro" 
END 


"estudio" , 7 


algún error en el siguiente programa? 


READ A,B,C 
PRINT 'La media aritmética es" 
PRINT (A+B+C) / 3 


END 

siguiente programa señalar los errores y 
READ A ; B 

LBT A +. DB = XxX 

PRINT X 

DATA 23 ; 10 

END 


algún error en el siguiente programa? 


READ X,Y,Z 
LET A. Ss oe DRY SR AZ 
DATA 37 4. 12.5 24.3 y 148 


los errores que hay en los siguientes pro-- 


READ-X 5 Y, Z 


PRINTXO Y eZ 
DATA 1, 3.5 , 72 
END 
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b) 10 READ A$ ,A, B 
20 PRINT A$ 
30 PRINTA- B 
40 DATA "JUAN" , "JORGE" , 7 
5Ó0 END 


246. ¿Hay algún error en el siguiente programa? 


10 READ A,B,C,D,E 
20 LETS = A+B+C+D+E 


30 PRINT S 
40 DATA 24,12,37,5.83 
SÓ END 


247. ¿Qué valores se asignan a las variables A,B,C,D,E,F 
al ejecutar el siguiente programa? 


19 DATA 3,-1,5,7E2 
20 READ A,C,E 

30 READ F 

40 RESTORE 

SÓ READ B,D 

60 END 


*248. ¿Qué imprimirá la ejecución del siguiente programa? 


10 READ A,B,C 

20 LET X= B-C 

30 RESTORE 

40 READ X,Y,Z,T 

5SÓ LETY=As+2 Z 
60 PRINT A,B,C,X,Y,Z,T 
70: DATE 2:43 72 

8N END 


249. ¿Qué imprimirá la ejecución del siguiente programa? 
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10 LET n= 1 

20 READ a 

30 PRINT a*a, 

4 LETn=mn+1 

SÓ IF n<4 THEN GO TO 20 

6% PRINT ''se acabó" 

70 DATA 1,4,6,1P,2MP,25,32,40 
80 END 


250. ¿Qué imprimirá la ejecución del siguiente programa? 


19 FOR n = 1 TO 5 

20 READ A , B$ 

30 PRINT A , B$ 

40h RESTORE 

5h NEXT n 

60 DATA 5,'"Antonio',4,'"Luisa',8,'"Ana",6, 
"David",53,"Anacleto" 

70 END 


251. ¿Qué imprimirá la ejecución del siguiente programa? 


1 READ X,Y 
20 PRINT X,Y 
3 DATA 2.5,3.4 


40 READ Z 
5H -PRINT ZP a ET EVA 
6% END 


*252. Explicar la finalidad del siguiente programa. 


10 LETS = 0 


20 FOR. n = 1-16 7 

30 | Rea A$ , B 

40h LETS = 8 +.B 

5h PRINT “El. UG. AR 50% se regprstró. * 3 
BW. grados” 

55 PRINT 


60 NEXT n 
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65 PRINT 

70 DATA "Lunes'',2M,'"Martes'',18,"Miércoles',19, 
"Jueves'',22,'"Viernes'',19,'Sábado'"',21,''Domin 
go" ; 20 

8% PRINT 'la temperatura media de la semana ha 
sidos "5SP7 

9N END 


253. Escribir un programa equivalente al 


1 LET A=5 : PRINT A, 
20 . LET B=15: :PRINT B, 
3/0 LET C=8 : PRINT C, 
40 LET D=25: PRINT D, 
5 LET E=3f: PRINT E, 


60 PRINT ''La media geométrica es: ";¡(A*B*C*D*E) 
1(1/5) 
70 END 


utilizando las sentencias READ y DATA. 


* 254. Escribir un programa cuya ejecución ¡imprima 20 
veces los cuatro primeros números almacenados en una 
línea DATA con 7 números. 


ZII e Escribir un programa empleando la sentencia 
DATA para asignar los valores 3.10 Y, sen 342. arc sen 
0,34 a las variables Al, A2 y A3. 


256. Escribir un programa empleando una sentencia 
READ cuya ejecución imprima los logaritmos neperianos 
de los números 23, 135, 45.7, 28, 147, 1412, 1936. 


ZO Pe Escribir Un programa cuya ejecución imprima el 
gráfico adjunto utilizando las sentencias READ y DATA. 
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*258. Escribir un programa en el que mediante la senten- 
cia DATA se introduzcan los gastos de cada día de 
la semana y que calcule el gasto total y el gasto 
medio. 


259. En diversas observaciones de un fenómeno se 
han conseguido las siguientes cantidades: 
52,33 33 0l 
> SN x 54,91 
x3=4,11 x¿75,25 
Escribir un programa en el que se calcule: 
6 
á i=l A s 
m= —¿— (media) 2, Xx; = X¡+X 740 0 «+Xg) 
Led 
6 
b) xs 
i=1 
6 


utilizando las sentencias READ y DATA. 
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* 260. Se introducen en un programa mediante la sentencia 
DATA las alturas de un conjunto de N personas. Completar 
el programa para que dé: 

a) El número de personas cuya altura sea mayor que 
1,70 m. 
b) El número de personas cuya áltura sea menor que 
1,60 m. 


LOL Se introducen en un programa mediante la senten- 
cia DATA las temperaturas de cada día del mes de diciem- 
bre. Completar el programa para que dé: 

a) El número de dias en que la temperatura es menor 
que 52 

b) El número de días en que la temperatura es mayor 
que 102, 

c) La temperatura media. 


202: Escribir un programa que almacene las edades 
de un conjunto de 20 personas y luego dé como resultado 
el número de personas con edad menor o igual que 15, 
el número que hay entre 15 y 30, entre 30 y 45 y mayores 
de 45 años. Aplicarlo al caso en que las edades sean: 
10,20,17324,33532198 43,032 13819539573, 30/013 134425540. Y 
14. 


263. Completar el programa del ejercicio anterior para 
que dé además La edad media y la desviación tipica. 


E 2 
2 Xx; Y, (x,-m) 
i=1 i=1 


(media = m = , desviación típica =0= a 
n 


) 


* 264. Escribir un programa que almacene 10 nombres 
en una línea DATA y cuya ejecución imprima el primero 
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de ellos en orden alfabético. Aplicarlo al caso de 
que los nombres sean: PEDRO, JUAN, JORDI, XAVIER, 
DAMIAN, DAVID, PEPE, LUIS, ORIOL y MANOLO. 


*265. Escribir un programa que ¡imprima el siguiente 
laberinto empleando las sentencias READ y DATA. 


266. Hacer un programa para que ¡imprima el número 
de aprobados y suspensos de una asignatura de un curso 
de 40 alumnos almacenando las notas Con DATA (Es 
aprobado con nota mayor o igual que 5). 


267. Hacer un programa que tenga almacenados con DATA 
los nombres de los elementos químicos con sus simbolos 
y que introduciendo el nombre de un elemento dé como 
respuesta el símbolo del mismo. 


268. Hacer un programa que tenga almacenados con DATA 
las maciones de Europa y sus capitales, y que introdu- 
ciendo el nombre de una nación dé como respuesta la 
capital de la misma. 


*269. Hacer un programa que tenga almacenados los nombres 
de naciones de América del Sur con sus capitales y 
que el ordenador pregunte al usuario la capital de 
una cierta mación, en caso de mo acertar que pruebe 
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de nuevo hasta 3 intentos y si acierta que el ordenador 
pregunte de nuevo la capital de otra nación hasta 
el final de la lista. 


270. Hacer un programa que tenga almacenadas las fórmu- 
las de las áreas de las figuras geométricas elementales 
y que introduciendo el nombre de una figura dé como 
respuesta el área respectiva. 


eZ 7 Is Hacer ¡un programa que tenga almacenados los 


premios Nobel de 1970 a 1980 (ambos incluidos) y que 
introduciendo el nombre de la materia dé como resultado 
los nombres de todos los premiados en esta década. 


2712. Hacer un programa que tenga almacenados con DATAS 
los nombres de entremeses, pescados, carnes y postres 
con su precio, de un restaurante y que introduciendo 
el número 1 nos dé los distintos entremeses, el 2 
los distintos pescados, el 3 las distintas Carnes 
y el 4 los distintos postres. 


273. Hacer un programa que tenga almacenados los nombres 
de un conjunto de escritores y algunas de sus obras 
más representativas y que ¡introduciendo el nombre 
de un escritor dé como respuesta estas obras. 


274. Hacer un programa que tenga almacenados los 
nombres de cierto número de personas con sus respecti- 
vos teléfonos y que ¡introduciendo el nombre de una 
persona dé como respuesta su número de teléfono. 


8 
SUBRUTINAS 


Si en un programa hay una parte del mismo que 
se repite en varios lugares, es cómodo considerarlo 
como un subprograma a fin de que sólo se escriba una 
vez. Estos subprogramas se llaman subrutinas. Esto 
se consigue utilizando las sentencias 


GOSUB y RETURN 


1. Sentencias GOSUB(ir a la subrutina) y RETURN(volver) 


La sentencia GOSUB se escribe de la forma si- 
guiente: 


m GOSUB k 


donde m es el número de la línea de la sentencia 
GOSUB y k es el número de la 12 línea de la subruti-— 
na. 


GOSUB k actúa en principio como GO: TO. dk, 
con la diferencia esencial de que el ordenador recuerda 
el número de línea m, de tal forma que una vez ejecu- 
tada la subrutina, esto es, cuando en la subrutina 
encuentra RETURN, vuelve a la línea siguiente de 
m. 


vaya a Las ventani Lles 
YA Y 5, que L sellem o 
certificados pen Y óplicado, 


Y luego nuera. 


Compre ma pobza Ae 25 plas. 


La sentencia RETURN se escribe de la forma si- 

guiente: 
h RETURN 

Esta sentencia sirve para señalar el final de 
una subrutina. 

Cuando debido a un GOSUB se está ejecutando 
una subrutina, RETURN tiene la misión de hacer volver 
la ejecución del programa a la línea siguiente de 


este GOSUB que lo ha mandado 


a la subrutina. 


Toda subrutina debe acabar pues con un RETURN 
y es útil empezarla con una sentencia REM que indique 


la función de la subrutina. 


El formato es: 


GOSUB k 


subrutina 
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Ejemplos 


a) Supongamos que en varios lugares de un programa 
interesa calcular valores de la función: 


2 
Yy=X + sen xXx- 1 


El cálculo de estos valores lo escribiremos 
en forma de la subrutina siguiente: 


50 REM CALCULO DE VALORES DE LA FUNCION 


YX +.sen > 1 
510 LET Y=x*x+SIN(x)-1 
5204 RETURN 


Cada vez, que en el programa principal se quiera 
calcular y= xXx +senx- 1 bastará escribir GOSUB 500 
con lo cual y será el valor de la función. 


b) Supongamos que en varios lugares de un programa 
interesa que de tres variables AO 70 se elija la 
menor asignando su valor a la variable m. Para ello 
utilizaremos la siguiente subrutina: 


500 REM SUBRUTINA QUE ASIGNA A m EL VALOR MENOR 
DE a,b,c 

51 IF b<a THEN LET a=b 

520 IF c<a THEN LET a=c 

530 LET m=a 

540 RETURN 


Cada vez que en el programa principal aparezca 
GOSUB 5PP a partir de la línea siguiente del GOSUB m 
será el menor de los números a,b,c 


c) El siguiente programa: 


10 p FOR I=1 TO 6 
20 | READ x,z 

30 | GOSUB 100 
4% L NEXT 1 
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10 REM AVERIGUA SI EL PUNTO ES DE LA CURVA 
110 LET y=x*x+2xx+4 
120 IF y<>z THEN RETURN 


130. PRINTER Mas MAS és. un punto de: le 
curva"' 

14 RETURN 

150 DATA. 1,71,2.3/0,4,4:7,8,88,16,17 

160 END 


averigua si seis puntos dados pertenecen a la curva 
de ecuación: 


y = E FS E 


Notas 


a) Las subrutinas suelen colocarse al final del progra- 
ma (aunque esto no es necesario). Es útil preceder 
las subrutinas con una sentencia STOP o bien GO TO 
hacia fuera de la subrutina para que sólo se ejecute 
a continuación de un GOSUB. 


Un programa con varias llamadas a una subrutina 
lo podemos representar esquemáticamente: 


n GOSUB k 


1 


GOSUB k 


2 


GOSUB k ; 
STOP 


subrutina 


RETURN 


b) Dentro de una subrutina puede haber varias senten- 
cias RETURN (formando parte de sentencias IF...THEN...). 


El primer RETURN que encuentra devuelve la ejecu- 
ción del programa a la línea siguiente del GOSUB. 


Ejemplo 


La subrutina: 


30%  1F a/2=INT(a/2) THEN RETURN 
31 LET a=2x*xa 
320 RETURN 


multiplicará los números impares por 2 y no alterará los 
números pares. 


2. Funciones definidas por el usuario 


En el TEMA II vimos que podíamos usar funciones 
matemáticas que el ordenador tiene ya incorporadas 
en la memoria ROM, pero si necesitamos alguna función 
que no esté definida allí lo podemos conseguir con 
la sentencia DEF FN cuya misión es precisamente 
definir funciones que necesita el usuario. 


La sentencia DEF FN va seguida de una letra 
que es el nombre de la función y' otra u otras entre 
paréntesis para las variables. 


Por ejemplo la función Me) PEA la 
definiríamos en BASIC de la forma: 


DEF FN y(x) = xxx — 5x*x + 4 
Para “obtener valores de una función definida 
se utiliza la sentencia FN que va seguida del nombre 
de la función y el valor de la variable o variables 
entre paréntesis. 


Para la función definida en el ejemplo anterior 


LET z = FN y(3) 


asigna a z el valor de la función y para x=3. 


PRINT FN y(5) escribirá el valor de la y 
para x=). 


El formato de la sentencia DEF FN. es: 


n29de línea letra variables expresión 


xs 


Ejemplo 


5 REM PRUEBA DE FUNCION DEFINIDA PARA E=1/2 sñ 
SIENDO g=9.8 

10 DEF FN E(T) = 1/2*9.8xT12 

20 p FOR T=% TO 20 STEP 2 

20 | PRI Pd "sFN E(T) 

40 LNEXT T 

SÓ END 


La ejecución de este programa da: 


Daria (0) 
RN 19.6 

e dc 78.4 

O cda 176.4 
AS 313.4 
O 49% 
LI 795.6 
Da 960.4 
LD as 1587.6 
aa 1960 


Es conveniente tomar la precaución de definir 
las funciones antes de su uso, puesto que algunos 
ordenadores así lo exigen. 
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La mayoría de ordenadores sólo admiten funciones 
de una variables es decir, funciones del tipo  Y(X), 
LTS, LEDO... Ets, da en otros se pueden definir 
funciones de más variables. 


Ejemplo: 
1) DEF FN Z(x,y)=xx*x+2*y*y-25 
20 pFOR x=1 TO 5 STEP Q.5 


30 FOR y=1 TO 5 STEP f.5 
40 E FN Z(x,y) 

5 NEXT y 

60 ÉNEXT x 

79 END 


Este programa calcula nos, valores de la función 
de dos variables: z(x,y) = x +2y -25. 


De la misma manera que hemos definido funciones 
numéricas se pueden definir funciones alfanuméricas, 
es decir funciones cuyas variables y resultados son 
cadenas. 


El nombre de la función y las variables son 
de la forma: 


AS O), XP, Y$ , 


Ejemplo: 
El programa: 
19 DEF FN f$(X$) = X$+"s" 
20 INPUT X$ 


30 PRINT FN f$(X$) 
49 END 


añadirá una s a todas las cadenas que se introduzcan 
en la línea 206. 


En el TEMA X estudiaremos otras funciones que 
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actúan sobre cadenas. 


3. Sentencia ON...GO TO 


Cuando la respuesta a una pregunta es sólo si 
o no, es apropiado usar la sentencia IF...THEN. 


Si la ejecución de un programa debe transmitirse 
a la línea 1000 si x=1, a la 2000 se x=2 y a la 3000 
si x=3 (bifurcación múltiple) no sería adecuada la 


sentencia IF...THEN. 


Para solucionar este programa existe la senten- 
cia ON...GO TO que actúa de la siguiente manera: 


Si una línea de programa es: 
n ON X GO TO 1900, 2100, 4020 
al ejecutarla el ordenador hará lo siguiente: 


Si  INT(x)=1 se transfiere el control o ejecu- 


ción del programa a la línea 1000, si INT (x)=2 
se transfiere a la línea 2100 y si INT(x)=3 ' se 
transfiere a la línea 4820. Si x<1 óÓó x>4 ignora- 


rá esta línea y la ejecución del programa pasará a 
la línea siguiente. 


Después del GO TO pueden haber más de 3 números. 


El formato de esta sentencia es: 


GO TO A,B,C,D, 


A Ad 


n2 línea expresion números de línea 


Si INT(E)=1 el control se transfiere a la línea A 
Si INT(E)=2 el control se transfiere a la línea B 
Si INT(E)=3 el control se transfiere a la línea C 
Si INT(E)=4 el control se transfiere a la línea D 


El diagrama correspondiente a esta bifurcación múltiple 
es: 


No 


INT(x)=1 INT(x)=2 INT(x)=3 INT(x)=4 ... INT(x)=k 
Si 
Acción 1 Acción 2 Acción 3 Acción 4 Acción k 


Ejemplo 


5 REM RECUENTO DE VOTOS DE 1000 VOTANTES 

10 HPRINT "Escribe 1 para el voto al candidato A, 
2 para el B y 3 para el C" 

20 LET XA=M : LET XB=NM : LET XC=Q 

30 pFOR N=1 TO 1000 

4% | INPUT X 

5 | ON X GO TO 100,200,300 

60 | PRINT "Voto nulo" : GO TO 319 

100 | LET XA = XA+1 : GO TO 310 

200 |LET XB = XB+1 : GO TO 310 

300 | LET XC = XC+1 

310 ÉNEXT N 

40% PRINT "Votos de A "¿XA 

410 PRINT "Votos de B  "¡XB 

420 PRINT "Votos de C. ";XC 

430 PRINT "Votos nulos "';100PMP-XA-XB-XC 

440 END 
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4. Sentencia ON...GOSUB 


De forma análoga al ON...GO TO existe en BASIC. la 
sentencia ON... GOSUB que actúa de la forma siguiente: 


Si la línea n es 


n ON X GOSUB 1000, 2000, 3000 


entonces si INT(X)=1 se transfiere la ejecución 
del programa a la subrutina 1000 y regresa a la línea 
siguiente a la n; si  INT(X)=2 se transfiere la 


ejecución a la subrutina 2000 y regresa a la línea 
siguiente a la n y si  INT(X)=3 se ejecuta la subru- 
tina 3000 y regresa a la linea siguiente a la  n. 
Si <d Ó x>4 se pasa directamente a la línea 
siguiente a la n. 


El formato es: 


ON E GOSUB  A,B,C,D, 


— nn Ak 
n2 línea expresión n2 de líneas donde 
empiezan las subrutinas 


EJERCICIOS RESUELTOS 


VI11.1. ¿Hay algún error en el siguiente programa? 


19 INPUT a 

20 INPUT b 

30 GO TO 100 

40 INPUT c 

5) PRINT cx*xc+axra+bx*b 
6H STOP 


100 PRINT a+b 

200 PRINT axa+bxb 
300 RETURN 

31%$ END 


Solución 


Hay un error en la línea 300, la orden es RETURN 
y no existe antes ninguna orden GOSUB. 


VII1.2. ¿Es correcta la expresión DEF EN 4lx) = 5%x+2 
para definin la función fix) = 5x+2 ? 
Solución 


No, pues debería ser una letra en vez del 4, en 
la definición de la función. 
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VII1.3. Escribir un programa cuya ejecución simule 
el juego de echan un dado con las siquientes reglas: 


Si sale 3 Ó 4 se vuelve a tinan, si sale 1 se 
pierden 15 ptas., si sale 2 se ganan 6 ptas., sí sale 
56 6 se ganan 3 ptas. Emplean la sentencia W...GO 
70. 


Solución 


El programa es: 


1% INPUT ''Con qué cantidad empiezas el juego?" 


5G 

, 

20 PRINT "JUEGA PULSANDO CONT" 
3% STOP 

40 LET D= INT(RNDx6)+1 

5% PRINT D 


6 ON D GO TO 1P0,200,300,300,400,409 
100 PRINT ''Has perdido 15 ptas" 
110 LET G=G-15 
120 PRINT '"TOTAL";G 
139 GOSUB 500 
140 GO TO 20 
200 PRINT 'Has ganado 6 ptas." 
21 LET G=G+6 
220 PRINT '" TOTAL";G 
23% GOSUB 500 
240 GO TO 20 
300 PRINT "Vuelve a tirar" 

31% PRINT '"'TOTAL";G 

32% GO TO 2f 

40% PRINT ''Has ganado 3 ptas." 
410 LET G=G+3 

420 PRINT ''TOTAL";G 

430 GOSUB 500 

44% GO TO 20 

50 PRINT "Quieres volver a jugar?(S o N)" 
510 INPUT A$ 

520 IF A$=""S'" THEN RETURN 

530 END 
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VII1.4. Hacer un programa para calculan los números 
combinatorio4 


(da 


usando el programa del factorial como subrutina (mm). 


Solución 
El programa es: 


10 INPUT "m=",m 
20 LET k=m 

30 GOSUB 500 

40 LET a=f 

5 INPUT "n= ",n 
6% LET k=n 

70 GOSUB 500 

8 LET b=f 

9% LET k=m-n 

95 GOSUB 500 

100 PRINT a/(bxf) 
110 GO TO 560 

50D REM Factorial 
510 LET f=1 

520 p FOR i=1 TO k 
530 E f=f*i 

540 LNEXT i 

550 RETURN 

560 END 


* 
>» 
*» 


VI11.5.Éscuibia un programa en el que introduciendo 
1000 letras, imprima las vocales seguidas de 5 si 
es a, de n si es e, de n si es i, de p si es o y de 
m si es u. Emplear unas subrutinas. 
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Solución 


El programa es: 


FOR n=1 TO 1000 


INPUT a$ 
IF a$="a" 
IF a$="e" 
IF a$="i" 
IF a$="0" 
IF uas="ú 
NEXT n 

GO TO 518 
PRINT "as" 
PRINT "en" 
PRINT "ir" 
PRINT "ep" 
PRINT "un" 
END 


THEN 
THEN 
THEN 
THEN 
THEN 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


* 
* 


109 
200 
309 
409 
50 


VII1.6. Escribin un programa que sinva para calcular 
los valores de cualquier función, que se introduzca 
mediante la sentencia DEF EN, 
y con un incremento de x arbitrario. 


Solución 


El programa es: 


10 


20 
30 
49 
50 
60 


en cualquier intervalo 


PRINT "Escribe la función de la siguiente 
forma: 100 DEF FN F(x) = ... (ENTER ó 


RETURN)" 


PRINT "Luego pulse CONT" 


STOP 


INPUT '"Intervalo'"'; a,b 
INPUT ''Incremento de x"; p 


PRINT "x", 


TECZJ" 
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80 | PRINT x, FN F(x) 
9 LNEXT x 
110 END 


70 E x=a. TO b. STEP p 


VII1.7. Escribia un programa en el que se defina la 
función e 


£(x) - COS X 


y calcule: A = £(a)+£ (b) introduciendo de antemano 
a y b. 


Solución 


El programa es: 


19 INPUT a,b 

20 DEF FN F(x) = (x-1)/C0OS(x) 

30 PRINT "A=";FN F(a) + FN F(b) * FN F(b) «x 
FN F(b) 

40 END 
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EJERCICIOS PROPUESTOS 


275. Tanto la instrucción GO TO como GOSUB se utilizan 
para efectuar un salto en el programa. ¿Alguna de 
ellas se complementa con otra instrucción? 


2705 En un programa ¿debe haber el mismo número de 
sentencias GOSUB' que de RETURN? 


* 277. ¿Se puede enviar el control de un programa a 
una subrutina mediante un GO TO? 


218. ¿Hay algún error en el siguiente programa? 
19 INPUT a 
20 IFa>3 THEN GO TO 100 
30 PRINT b 


40 GO TO 130 

10 REM Subrutina 
110 LET b=a+3 
120 RETURN 


279. ¿Qué ocurriría con la ejecución de un programa 
que contuviera las siguientes líneas? 


4%  GOSUB 100 
199 REM Subrutina 
160 GOSUB 500 


22] 


200 RETURN 


SO REM Subrutina 


54d GOSUB 10p 


569 RETURN 


280. ¿Es correcto un programa que contenga las si- 
guiente líneas? 
190 GOSUB 390 


30% REM Subrutina 
400 RETURN 100 


*281. ¿Cuál es el resultado de la ejecución del si- 
guiente programa? 


10 pFOR n=1 TO 4 


20 | READ x 
30 | GOSUB 70 
40 LNEXT n 
5% STOP 


6% DATA 2,5,8,9 

79 PRINT "La superficie del cuadrado 
de. lado":x:3"es"3xf2 

80 RETURN 
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* 282. ¿Es correcto el programa 
1f DEF FN B(x) = 3xFN A(x) 


20 DEF FN A(x) = 2x*x 
30 PRINT 4, FN A(4), FN B(4) 


en el que se definen las funciones A(x) y B(x)? Nótese 
que B(x) la definimos antes que A(x), ¿tiene alguna 
importancia esto en el programa? 


283, ¿Es correcta la expresión: 


DEF FN A(x) = 3x*%x FN A(x) ? 


*284, Escribir un programa que nos dé el valor de 


pl E 1 1 
Lear tar. + 
para n=15 utilizando una subrutina para el cálculo 


del factorial. 


Comparar el resultado del mismo con el número 
e (e=2,718281828...) 


285. Escribir un programa en el que desde n=3 hasta 
100 calcule el área del polígono regular de hn lados 
inscrito en una circunferencia de radio r (introducido 
de antemano) si n es par y el área del polígono 
regular circunscrito si n es impar. Emplear unas 
subrutinas. 


286. Escribir un programa en el que introduciendo 
100 ángulos en grados, minutos y segundos si son menores 
que 452 imprima las razones trigonométricas seno y 
coseno y si son mayores oO iguales que 452 imprima 
la tantenoe v cotaneente. Emblear una subrutina. 
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2907, En un programa se pide al usuario que introduzca 
un número positivo. Escribir una subrutina que en 
el caso de ser negativo le pida volver a introducir 
el dato correcto y si es positivo asigne a la variable 
Xx la parte entera de este número. 


288. Escribir una subrutina que empieze en la instruc- 
ción 500 y que de tres variables a,b,c elija la menor 
asignando su valor a la variable m pero quedando 
inalterados los valores de a,b,c. 


289. Escribir una parte de un programa en el que 
se introduzca una variable x. Si x=1 envíe la ejecución 
del programa a la subrutina 1000, si x=2 a la 2000 
y si x=3 a la 3000. 


290. Escribir un programa empleando la sentencia 
ON...GO TO... que informe sobre: 

a) Número de tomos de una biblioteca. 

b) Número de tomos de Historia. 

Cc) Número de tomos de Ciencias. 

d) Número de revistas. 
previamente almacenados con DATA. 


RYL. Escribir un programa en el que se defina la 
función ) SE 
£(x) = (x"+4x+1)e 


y calcule: f(a)+£(b) para el siguiente conjunto 
de valores de a y b: 


ra fa=2 fa=-5,1 o 
b=1,5 * Ab=-3 ”? lb=1/3 ? Ab=-1/4 


230 


292. Escribir un programa en el que se definan las 
funciones: 


Xx  -X 
Sh(x) = > (seno hiperbólico) 
ete” 
CKh(X) = o (coseno hiperbólico) 
y que calcule a) Sh(3) + ch? (5) 


b) Sh3(1/2)+Ch(4,3) 


* 293. Escribir un programa que defina la función: 
fía,b,c) = 2a.+ 3b + 4e + 2ab:. + 3be 


y calcule : 2 3 
z = F(a.,b,ec) +» £"ta,b,a) + £”"(a,b,c) 


para los números a,b,c enteros, tales que 


O<as<?7 , 3<b<14 , 5<c<12 


294. Escribir un programa para calcular valores de 
la función 
3x-1 si x<“0 


q? Sr MA 


f(x) = 


entrando el valor de x mediante la sentencia INPUT y 
utilizando la función definida. 


* 295. Escribir una subrutina para calcular los valores 
de (gof)(x) siendo f(x) y g(x) funciones ya defini- 
das en un programa. 


296. Escribir un programa que imprima la letra de 
una Canción cuyo estribillo se repita varias veces 
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empleando una subrutina para el mismo. 


297. Escribir un programa que imprima un soneto de 
Lope de Vega de manera que despues de cada cuarteto 
y de cada terceto imprima el gráfico 


de le «le 
us Ss “ 


298. Escribir un programa que para dos números comple- 
jos 

EN BD 

l1z, = 0401 LD 


el usuario pueda escoger las siguientes opciones (MENU): 


1 Calcular z,+z 
Z Calcular -2, 2 


2 
3 Calcular 2/2, 


escrita cada una de las opciones como una subrutina. 


299. Escribir un programa que, para un polinomio cual- 
quiera de 22 grado  p(x) = ax +bx+c el usuario pueda 
escoger las siguientes opciones (MENU): 


1 Calcular el valor numérico de P(x). 
2 Resolver la ecuación: P(x) = O 

3 ¡Calcular el vértice de la paraDoa 
5 hates 

y P(x) (x= ==, pa oz ) 


escrita cada una de las opciones como una subrutina. 


9 
VARIABLES CON SUBINDICE. SENTENCIA DIM 


Recordemos que en BASIC existen dos tipos de varia- 
bles: 


a) Numéricas, representadas por una o más letras o 
por una letra seguida de números o letras. 


b) Alfanuméricas o variables de cadenas, representadas. 
como las numéricas seguidas del signo $ (Algunos ordena-— 
dores sólo admiten una letra seguida de $). 


Con este tipo de representación si hay un número 
elevado de variables es engorroso ponerles letras 
distintas a cada una. 


Es de uso común que los ordenadores puedan tratar 
cantidades ingentes de datos, para ello se utilizan 
las variables con subiíndice en forma de listas (vecto- 
res) y tablas (matrices). 


1. Listas (vectores) 


Supongamos que en un programa se necesita manejar 
la edad de los 600 alumnos de un Instituto. Esto puede 
hacerse considerando las edades como elementos de 
una lista, representando las edades por un nombre 


234 


(una letra) seguido de un subíndice encerrado con 
un paréntesis. O sea se pueden definir las variables 
E(1), E(2),.<:+,E(600),, siendo; 


E(1) la edad del primer alumno. 
E(2) la edad del segundo alumno. 


E(600) la edad del seiscientosavo alumno. 


Asi pues los conjuntos de variables con un subíndice 
o listas se representan por una variable (numérica 
o alfanumérica) seguida de un número entre parentesis 
(que es el subíndice); todas las variables tienen 
el mismo nombre y sólo se distinguen por el subíndice. 


Ejemplo: PL) 2 
piLZ > 4 
pa) 8 
p(4) = 8 


Estas variables con subíndice se utilizan igual 
que las variables simples. Por ejemplo si en una línea 
de programa se encuentra: 


n LET x = 3% p(4) 


entonces x tomaría el valor 24 (3* 8) 


Si se encuentra: 
n PRINT p(3) 


escribirá 6. 


Si se desea almacenar en un programa 200 nombres 
podemos usar variables de cadena con subíndices. Estas 
se representan con una variable alfanumérica seguida 
de un número entre paréntesis que es el subíndice. 
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Así | 
n$(1) es el primer nombre 
n$(2) es el segundo nombre 


n$(200) es el doscientosavo nombre 


Si una línea de programa es: 
n PRINT n$(45) 


escribirá el nombre que ocupa el lugar 45 en la lista 


n$(i). 


2. Tablas (matrices) 


Pueden utilizarse también variables numéricas o 
alfanuméricas con dos subíndices (tablas). Cada elemento 
de la tabla queda determinado por una variable numérica 
o alfanumérica seguida de dos números entre paréntesis 
separados por una coma. El primero de los subíndices 
indica la línea y el segundo la columna en la tabla. 


Estas variables son pues del tipo 
AZ.) MC331005 DRA TS 
A(2,3) representa el valor numérico de la fila 2, 


columna 5 de la tabla A. 


M(3,10) representa el valor numérico de la fila 3, co- 
- lumna 10 de la tabla M. 


p$(4,7) representa la cadena de la fila 4, columna 7 de 
la tabla de cadenas p$. 


Ejemplo 
Si la tabla R-es: 
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1 4 6 7 
2 -3 5 3 
-5 6 ge 10 
entonces 


R(2,3) toma el valor 5. 
R(3,4) toma el valor 10. 


3. Sentencia DIM (dimensión) 


La sentencia DIM se utiliza para que el ordenador 
guarde la memoria suficiente para almacenar variables 
con subíndice (listas y tablas). 


Suele escribirse al principio del programa asegurán- 
donos el suficiente espacio de memoria para las listas 
y tablas que se necesitan. 


¿Muda “El M2"? 
Qussiara Aaa aucd reser'/h a nombre 
Aecl S-. Gara, para «JO personas 
l dia 15 por! rocha. 


El formato de la sentencia DIM para las listas 
es como sigue: 
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número 
de línea 


variable número 


Ejemplo 
Si una línea de programa es: 
n DIM A(20) 
el ordenador reserva en la memoria espacio suficiente 
para una lista de nombre A con 20 variables 


ACTILAC2) 7052 ¿A20). 


Si es: 


n DIM B$(3£0) 


el ordenador reserva espacio para 30 cadenas de nombre 
B. 


El formato de la sentencia DIM para tablas es: 


número 
de línea 


variable números 


Ejemplo 
Si una línea de programa es 
n DIM A(4,6) 
reserva espacio para una tabla numérica de 4 filas 


y 6 columnas. 


Si es: 
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n DIM A$(5,8) 


reserva espacio para una tabla de cadenas de 5 filas 
y 8 columnas. 


4. Algunas cuestiones prácticas 


- Para utilizar las variables con subíndice se pueden 
nombrar en forma explícita 


A(3) 
B(2,4) 
C$(8) 


pero también es válido utilizar expresiones del tipo: 
A(m), B(2x*x), C$(k-1), ... 


donde el subíndice está en función de las variables 
q 


- También es válido utilizar expresiones DIM del 
tipo 


n DIM A(k) 


o sea que el número de elementos de la lista A depende 
del valor que tome la variable k (la cual naturalmen- 
te debe estar definida antes de la sentencia DIM). 


- Algunos ordenadores admiten el sunbíndice Q y 
otros deben empezar en 1. Si utilizamos como norma 
subíndices que empiecen por 1 tendremos más seguridad 
de que nuestro programa corra bien en el cualquier 
ordenador. 
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- No es recomendable la misma letra para una variable 
con subíndice y para una variable simple. 


- Para asignar valores a las variables con subíndices 
suele utilizarse las sentencias DATA, READ si cada 
vez que se ejecuta el programa deben tomar los mismos 
valores y la sentencia INPUT si es necesario que cam- 
bien en cada ejecución del programa. 


Ejemplo 1 
19 DIM A(4) 
20 DATA 2,24,30M,50 
30 p FOR I=1 TO 4 
40 EX A(1) 
50 LNEXT 1 


Esta parte de programa asignará los valores 


A(1) = 2, A(2) = 24, A(3) = 30, A(4) = 50 


Ejemplo 2 
19 DIM A(4) 


20 p FOR I=1 TO 4 
30 Ez A(I) 
40 LNEXT 1 


Esta parte de programa permitirá al usuario introdu- 
cir los valores de A(1), A(2), A(3) y A(4) que conven- 
ga en cada caso. 


Vamos a escribir ahora un programa que permita 
calcular la media de una cantidad de números cada 
vez distinta sin destruir estos números o datos, de 
forma que en el mismo programa estos pudieran utilizar- 
se para otros cálculos (por ejemplo la desviación 
típica). 
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1% INPUT '"'Número de datos"';k 
20 DIM A(k) 

30 LET S=Q 

40 PFOR I=1 TO k 

SA | INPUT A(I) 

60 | LET S=S+A(1I) 


7% ENEXT 1 
8 LET M=S/k 
9% PRINT "Media = ">M 


Nótese que el programa podría continuar utilizando 
los datos A(1),A(2),...,A(k) para otros cálculos. 


«Notas 


1. En algunos ordenadores no es necesario dimensionar 
las listas o tablas con menos de 11 elementos, o sea 
que admitirían variables del tipo N(1f) o bien N(10,10) 
sin haberlos dimensionado antes. 


2. En algún ordenador al escribir DIM A$(2f,12) 
significa una lista de 20 cadenas de 12 caracteres 
cada una (entendiendo que si hay menos de 12 el resto 
son espacio en blanco). Esto es equivalente a una 
tabla de 20 filas y 12 columnas con un caracter único 
en cada lugar de la tabla. 
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EJERCICIOS RESUELTOS 


1X.1. ¿Dará mensaje de error la ejecución del siguiente 
programa? 

19 DIM N(11) 

20 pPFOR i=1 TO 12 

30 | READ N(ií) 

40 | PRINT N(i) 

5 LNEXT i 

6 DATA 1,2,3,4,5,6,7,8,9,10P,11,12 

7% END 


Solución 
Sí que dará mensaje de error puesto que en la 


línea 10 sólo se dimensionan 11 variables con subíndice 
y se utilizan 12. 


» 
* 
* 


1x.2, Hacen un programa en el que el ordenador pida 
una tabla de valores de 12 filas y 8 columas entrándo- 
la porn filas y calcule la suma de las coluwmas. 


Solución 
El programa es: 


19 DIM A(12,8) 
20 PRINT '"'Introducir los valores por filas" 
3 p FOR I=1 TO 12 


4h FOR J=1 TO 8 
9) Ez A(1,J) 
60 NEXT J 

7% LNEXT 1 


8% CLS 
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9 rFOR J=1 TO 8 
100 | LET S=0 


110 FOR I=1 TO 12 
120 E S=S+A(1,J) 
130 NEXT 1 
140 PRINT 'La suma de la columna De 
" es ”"sS 
159 ENEXT J ' 
16% END 
* kx 


1X.3. las cuatro notas de 14 alumos s0n: 


Alumno Notas 
! E E TS 
2 1,7,10,4 
3 8411 
4 6,6,7,6 
5 y a: e! DY 
6 8,4,6,4 
7 25051 
8 4,6,5,8 
9 5,4,6,7 
10 61532 
11 4,4,5,0 
12 3,6,6,1 
13 Lada 
14 Fits158 


Escribia un programa que dé la nota media de 
cada uno, el número de lista que le corresponde y 
que extraiga de esta lista aquellos cuya nota media 
es mayor o ¿qual que 5. 


Solución 


El programa es: 
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10 LET T=0 

20 DIM N(14,4): DIM S(14) 

30 PRINT "Las notas medias son:" 
40 pFOR i=1 TO 14 


50 FOR J=1 TO 4 
60 READ N(ií,j) 

79 LET T=T+N(i,j) 
8% NEXT J 


909 | PRINT "Alumno "ziz3"..."3T/4 

190 | LET S(i) = T/4 

11fP | LET T=4 

120 LNEXT i 

13% PRINT : PRINT 

14% PRINT "Los alumnos cuya nota media es 
mayor o igual que 5 son:" 

150 PRINT : PRINT 


160 y FOR i=1 TO 14 
179 | e S(i)>= 5 THEN PRINT i;z"...'";S(i) 
18% LNEXT i 


199 DATA 4,2,5,2,1,7,10,4,... (hasta los 
14 alumnos) 
200 END 


1X.4. Escribir un programa para almacenan el recuento 
de votos de la siquiente tabla y que imprima el número 
de votantes menores de 25 años, el de los que tienen 
25 años o más y el número de votos de cada partido. 


PARTIDOS 
A B GC D 
Menores de 54 28 35 47 
NUMERO DE 25 años. 
VOTANTES De 25 años 
o más. 


68 53 61 60 
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Solución 


El programa es: 


10 DIM A$(6) : DIM N(2,4) 

| FOR I=1 TO 6 

20 | READ A$(1) 

40 LNEXT 1 

5 pPFOR I=1 TO 2 

60 FOR J=1 TO 4 

70 ES N(1,J) 

80 | seso y 

9N ÉNEXT 1 

120 PFOR I=1 TO 2 

125 | LET F=0 

130 FOR J=1 TO 4 

140 | 1er F=F+N(1,J) 

150 [er J 

160 | PRINT "Votantes ";¡A$(1+4);TAB(29);F 

18% LNEXT 1 

19% PpFOR J=1 TO 4 

195 | LET C=0 

200 FOR I=1 TO 2 

210 [1er C=C+N(1,J) 

229 [ver I 

230 | PRINT "Votantes del partido "'¡A$(J); 
TAB(29);C 

24 ENEXT J 

250 DATA "A", "B", "Cc", *D", "Menores. de 25. años 
"De 25 años o más" 

260 DATA 54,28,35,47,68,53.,61.,690 

270 END 


1X.5. Escribia un programa cuya ejecución onrndene de 
menor a mayor una lista de R números. 


Solución 


Nota 


burbuja. 


245 


El programa es: 


19 DIM N(k) 
20 pFOR I=1 TO k 
30 ES N(1) 
4/0 LNEXT 1 

SA PFOR A=1 TO k-1 

60 FOR B=1 TO k-1 

79 LET X=N(B) 

80 LET Y=N(B+1) 

90 IF X<=Y THEN GO TO 200 
100 LET N(B)=Y 

110 LET N(B+1)=X 
200 NEXT B 
210 ÉNEXT A 
220 pFOR C=1 TO k 
230 | eno N(C) 
240 LNEXT C 
250 DATA (lista de números) 
26% END 


forma de ordenar se llama método de la 


Se podrían entrar los números N(I) mediante 


la sentencia INPUT. 


Otro método: 


1 INPUT 'Cuantos números hay que ordenar?" 
¡¿k 

20 DIM N(k) 

30 p FOR I=1 TO k 

44 Ez N(1) 

5 LNEXT 1 

6% pFOR I=2 TO k 

70 FOR J=1 TO 1-1 

80 IF N(I)<N(J) THEN LET X=N(J): 

LET N(J)=N(1) : LET N(I)=X 

90 NEXT J 

100 LNEXT 

119 CLS 


130 | PRINT NC(1) 
148 LNEXT 1 
15% END 


10 ee I=1 TO k 


Nota 


Estos programas también “sirven para ordenar 
cadenas cambiando N por N$. 


1X.6. En una tienda se venden los siguientes artículos: 


1. Champú de 120 ptas. unidad 

2. Jabón líquido a 110 ptas. unidad 

3. Colonia a 200 ptas. unidad. 

4. Suavizante a 145 ptas. unidad. 

5. Detergente a 638 ptas. unidad. 

6. Lejía a 89 ptas. unidad. 

7. Desodorante a 180 ptas. unidad 

8. Jabón de afeitarn a 248 ptas. unidad. 
9. Esponjas a 80 ptas, unidad. 
10. Gel a 215 ptas. unidad. 


Escribian un programa en el que introduciendo 
el número del articulo y el número de unidades compradas 
porn cada cliente imprima la factura de dicha compra 
detallando: el nombre del artículo, el número de unida- 
des, el precio por unidad, el total de cada artículo 
y el total de la compra. 


Solución 


El programa es: 


10 
20 
30 
40 
5h 
60 
79 
80 
9 
190 
15 
119 
120 


125 


130 
140 
150 


160 
170 
175 
180 
19% 
195 
200 


210 
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DIM A$(18) : DIM p(10) : DIM r(10) : DIM u(10) 
FOR i=1 TO 10 

READ A$(i) 

READ p(i) 

NEXT i 

FOR i=1 TO 10 

INPUT "Artículo (20 si no hay más)";r(i) 

IF r(i)=2N THEN GO TO 110 

INPUT 'Unidades";zu(i) 

NEXT i 

LET n=10P : LET t=0 : GO TO 120 

LET n=i-1 : LET t=P 

PRINT "Art."sTAB(12)5"N.oni."3TABC20):"P.unis,” 
¡TAB(27);'"Total" 
PRINT "== TAB) Moe "sTAB(20)3""==--- " 
TAB(27) "== == " 

FOR i=1 TO n 

LET P=u(i)xpír(i)) 

PRINT : PRINT A$(r(i));TAB(15)zu(i);TAB(20); 
p(r(i));TAB(27);P 

LET E=t+P 

NEXT i 

PRINTO o ds 
PRINT : PRINT : PRINT 

PRINT TAB(7);"Total compra:----—";TAB(28);t 
PRINT : PRINT : PRINT "Gra:ias por su visita" 
DATA '"Champú'",120P,'"Jabón 1líquido",11f,'Coloni 
a'",200,'"Suavizante'',145,'"Detergente'"',638,"Lej 
ia',89,'Desodorante',18/ "Jabón afeitar'",248, 
"Esponjas'',80,''Gel'"',215 

END 
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EJERCICIOS PROPUESTOS 


300. ¿Cuáles de las siguientes variables son varia- 
bles con subíndice ? 


Ni, AC); N(12), M4, B6 


301. ¿De qué clase son las siguientes variables? 
a) ASB(3,5) 
b) PAN$ 
c) CADENA 
d) P 
ed PECS) 
f) AR$(3,5) 
g) COT$(5) 


*302. ¿Qué imprimirá la ejecución del siguiente progra- 
ma? 
1 DIM A(15) 
20 pFOR I=1 TO 15 
30 ES A(1) 
4% LNEXT I 
5/6 LETS=04 
60 pFOR J=1 TO 15 
70 | LET S=S+A(J) 
89 | PRINT A(J) 
9 LNEXT J 
109 PRINT "M.A.=":S/15 
LID. DATA 2.348.003 1.072 0.17 3500, Lis 
40 0d dad eds d 
120 END 


303. ¿Qué imprimirá la ejecución del siguiente progra- 
ma? 


249 


19 DIM N(6,4) 
20 PFOR i=1 TO 6 


39 FOR j=1 TO 4 

40 READ N(ií,j) 

50 IF i<J THEN PRINT N(i,j) 
6% NEXT j 

709 NEXT i 


30 ¡DATA 12,35€,310.7,8,9,10,11512,13,14, 19,105 
17,18,19,20,21322,23,24 
90 END 


304. ¿Qué imprimirá la ejecución del siguiente progra- 


10: DATA 1,2,354,5,6,7/989,10,11,12,13, 14 
20 DIM A(12) : DIM B(7) 

30 FOR i=1 TO 12 

40 E A(i) 

50 LNEXT i 

60 RESTORE 

70 FFOR k=1 TO 7 

80 ES B(k) 

9 LNEXT k 

19% PRINT A(4) : PRINT B(4) 
110 END 


J0I%5 Escribir un programa cuya ejecución almacene 
mediante variables con subíndice los meses del año. 


* 306. Hacer un programa que pida dos vectores A y 
B de R3 y Calcule el producto escalar de ambos y las 
componentes del producto vectorial. 

(Producto escalar: 
(a, 27,33)" (b,,b,,b3) = a,Dy + a7b, + a3Dz 
Producto vectorial: 


(a, 27,23) (b, ,b,,b3) És (a,b3-a3b)»23b,-a,b3,2,b7-a7b,) 
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JOR Hacer ¡un programa para resolver sistemas li- 
neales de dos ecuaciones con dos incógnitas. 


308. Hacer un programa en el que introduciendo dos 
tablas o matrices A y B de 5 filas por 4 columnas 
cada una, imprima la tabla o matriz que se obtiene 
sumando los elementos correspondientes. 


309. Hacer un programa en el que introduciendo N 
números mediante INPUT calcule la media, la varianza 
y la desviación típica. 


N 
del 
. - i=1 
Media = x = N 
N 
3 (x Mea 
, 2 i=1 
Varianza = U = y 


a a ; 2 
desviación típica = yo = 0 


310 Hacer un programa para que el ordenador pida 
al usuario una tabla de valores enteros de 15 filas 
por 6 columnas e imprima estos valores en forma de 
tabla de 15 filas por 6 columnas. 


311. Escribir un programa en el que introduciendo 
40 «números en una tabla de 8 filas por 5 columnas 
los escriba en forma de tabla y luego vuelva a imprimir 
la tabla en orden creciente para cada fila. 


* 
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312. Uma tienda de venta al por mayor tiene cada 
semana 6 artículos de oferta de la siguiente manera: 
Hasta 5 unidades de cualquier artículo de oferta des- 
cuenta el 2%, de 6 a 10 unidades el 4%, Je 10 a 15 
unidades el 6% y más de 15 unidades el 10%. Hacer 
un programa en el que introduciendo el precio de los 
6 artículos en una línea DATA nos dé como resultado 
la tabla de los precios por. unidad según el número 
de unidades que se compran respecto de cada artículo. 


O sea: 
Si n es el número de unidades 


ns 5 5<ns<10 10<n<«15 n.>12 


E SN Escribir un programa para ordenar en orden alfa- 
bético N nombres introducidos mediante un DATA. 


314. Un profesor ha puesto dos exámenes a un grupo 
de 40 alummos y quiere tener almacenadas las notas 
y la nota media de los dos exámenes para cada alumno. 
Hacer el programa correspondiente. 


315. Añadir lo que convenga al programa del problema 
anterior para que además de la nota media el ordenador 
imprima: MD, I, S, B, N, E según el siguiente baremo: 
(M = nota media) 
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M -< 2,5 es MD (Muy deficiente) 
215€ M5 es I (Insuficiente) 
€ M6 es S (Suficiente) 

6 < MX<7 es B (Bien) 

7 << M8 es N (Notable) 

g8 < M es E (Excelente) 


*316. Hacer un programa que almacene las notas media 
de 30 alumnos en una variable con subíndice y dibuj 
en diagrama horizontal mediante signos "''*'  poniend 
uno por cada alumno que tenga MD,I,S,B,N,E segú 
el baremo del problema anterior. 


LE Escribir un programa cuya ejecución almacen 
las notas de 10 alumnos en las 5 asignaturas de Matemá 
ticas (1), Informática (2), Ciencias (3), Física (4) 
Química (5) y obtenga para cada asignatura la not 
media. 

Aplicarlo al caso: 


1 Mat. 5 4 4 6 3 7 2 7 8 5 
2: TIMES 4 5 5 3 5 6 7 5 6 8 
3 Glenes 1 8 6 5 4 4 5 5 5 6 
4 Fis. 4 3 1 6 4 5 4 6 9 1 
5 Quím. d 3 2 6 5 4 5 7 4 6 


318. Una empresa fabrica 4 artículos y los vend 
a través de 12 distribuidores. Hacer un programa 
que utilizando una variable con dos subíndices, almacen 
el número de ventas de cada artículo para cada distri 
buidor y calcule el precio total de los artículo 
vendidos por cada distribuidor formando con ello 
una lista, calculando también el número total de ventas 
(Utilizar una línea DATA para los precios de cad 
artículo). 
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319. Hacer un programa que ¡introduzca una tabla A 
de 3 filas y 3 columnas y una lista de 3 elementos 
y calcule la suma de los productos de los elementos 
de cada fila de A por los elementos respectivos de 
B guardando los resultados en una lista C imprimiendo 
esta lista. 


320, Hacer un programa en el que introduciendo 12 
nombres de un grupo de personas con las edades de 
cada uno de ellos nos dé como resultado los nombres 
con la edad y además la edad media del grupo. 


3Z2Le Escribir un programa en el que ¡introduciendo 
con la sentencia INPUT los resultado de una encuesta 
sobre 6 conjuntos musicales: Rock, Ritmo, Vals, Melodía, 
Movida y Saltos, nos dé como resultado el número de 
votos de cada conjunto y los votos nulos. 


*322, Escribir un programa en el que dadas 5 letras 
cualesquiera dé como resultado todas las formas distin- 
tas de escribir las mismas (formar las permutaciones 
de 5 elementos). 


10 
FUNCIONES DE CADENAS 


En este tema estudiaremos funciones cuyo argu- 
mento es una cadena. Son por tanto funciones que actúan 
sobre las cadenas y cuyo resultado es otra cadena 
o un número. 


O sea: 


Función de cadena ¡Cadenas | 


[ Cadenas | >—_————_—_> | 6Ó 


(Números reales) (IR) 


1. Función LEN (longitud) 


Esta función tiene como argumento una Cadena 
cualquiera (A$) y actúa de la siguiente manera: 


| LEN(A$) da el número de caracteres de A$ | 


a) No hace falta colocar la cadena argumento en forma 
de variable alfanumérica. Se puede colocar entre co- 


Notas 
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millas directamente. 


b) Recuérdese que los espacios en blanco cuentan 
como caracteres. 


Ejemplos 


a) Si A$f = "ALMA", entonces PRINT LEN (A$) da como 
resultado +4. 


b) PRINT LEN (''BARCELONA') da 9 
c) PRINT LEN ('"MES'') + LEN("'DE"') + LEN('"ENERO") da 10 
d) PRINT LEN '(''MES DE ENERO") da 12 


e) El programa siguiente: 


10 LET A$="'LA PALABRA " 

2% INPUT B$ 

"30  LET N=LEN(B$) 

40 PRINT A$;B$;" TIENE ";¡N;" CARACTERES" 


imprimirá el número de caracteres de B$. Por ejemplo 
si B$ = "PERRO" imprimirá: 


LA PALABRA PERRO TIENE 5 CARACTE?ES 


2. Subcadenas 


Entendemos por subcadena de A$ a una cadena 
cuyos elementos son de A$f conservando el orden. 


Ejemplos 


a)  ''BAR'',''ONA',''CEL','BRCN' son subcadenas de ''BARCELO- 
NA". 


b) ''PARIS CAPITAL' es uma subcadena de "PARIS ES LA CA- 
PITAL DE FRANCIA" 
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3. Extracción de subcadenas de una cadena dada 


Existen tres funciones de cadena cuyo resultado 
es una subcadena: 


LEFT$ 
RIGHT$ 
MID$ 


o sea: 


LEFT$ 
RIGHT$ 

MID$ 
——_—_—_—_—_—_—_—_—_— Subcadena de A$ 


A$ 


AS = "Prnogramación” 


Right81A8, 4) 


g 


2, 
Z 3 1(A$,3) 


Mid 8 (AS, 4,5) 


que actúan de la siguiente manera: 
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LEFT$(A$,N) da la subcadena de A$ formada 
por los N primeros caracteres 
de Af. 


RICHT$(A$,N) da la subcadena de A$ formada 
por los N últimos caracteres 
de Af. 


MID$(A$,P,N) da la subcadena de Af formada 
por los N caracteres de Af a 
partir del caracter que ocupa 

el lugar P (éste incluido). 


Como, por regla general, una cadena .puede tener 
a lo sumo 255 caracteres, debe ser: 


O<N< 255 


Notas 


a) LEFT significa izquierda en inglés. 
RIGHT significa derecha en inglés. 
MID es abreviación de la palabra inglesa middle 
que significa medio. 


b) No hace falta colocar la cadena argumento en forma 
de variable alfanumérica. Se puede colocar entre 
comillas directamente. 


c) Los espacios en blanco cuentan como caracteres. 


Ejemplos 


a) Si Af = "ALMA" entonces 
PRINT LEFT$(A$,2) da AL 
PR INT RIGHT$(A$,3) da LMA 
PRINT MID$(A$,2,1) da L 


b) 


c) 


d) 


e) 


si 
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PRINT LEFT$ ('"'SEVILLA'',3) da SEV 
PRINT RIGHT$ ('"'SEVILLA'',4) da ILLA 
PRINT MID$ ('"'SEVILLA'',3,4) da VILL 


PRINT LEFT$("ARTICULO",2) + MID$("ABORIGEN"',2,2) + 
RIGHT$('"'PANEL'',1) da ARBOL 


PRINT LEFT$("EL EQUIPO LOCAL'',9) da EL EQUIPO 
PRINT MID$("EL EQUIPO LOCAL'",4,6) da EQUIPO 
PRINT RIGHT$('"EL EQUIPO LOCAL",12) da EQUIPO LOCAL 


El programa siguientee: 


19 INPUT A$ 
20 PRINT TAB(4); LEFT$(A$,12) 


30 PRINT 

40 PRINT TAB(8); MID$(A$,14,5) 
SÓ PRINT 

60 PRINT TAB(6); RIGHT$(A$,8) 
70 END 


A$ = "EL TREN SALE A LAS 15 HORAS", imprimirá: 
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4. Función VAL (valor) 


La función VAL tiene como argumento una cadena 
A$ y actúa de la siguiente manera: 


VAL(A$) da el número formado por las cifras 
que hay en la cadena A$ a partir 


. del principio hasta que encuentra 
un caracter no numérico distinto del 
espacio vacío. 


Ejemplos 

a) PRINT VAL(''153 de diagonal'') da 153 
b) PRINT VAL("La diagonal es 153") da Y 
c) PRINT VAL(''1 2 3) da 123 

d) PRINT VAL (1.45 de altura) da 1.45 


Existe en algunos dialectos del BASIC una varian- 
te de la función VAL que convierte la cadena argumento 
A$ en su valor numérico si Af expresa un cálculo. 


O sea: 


VAL(A$) da el valor de A$ 


(A$ expresa un cálculo) 


Ejemplos 


a) Si A$ = "SQR(4)'"  VAL(A$) da 2 


b) PRINT VAL(''COS(7/3)")da Q.5 
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c) PRINT VAL(''3") da 3 
d) El programa 
19 INPUT A$ 
20 LET x=4 
3/$ PRINT VAL(A$) 
4% END 
SL. AS = “"Gell=3)%, -—imprimiras 3 


5. Función STR$(cadena) 


La función STR$ convierte un número en una ca- 


dena. 
O sea: 
STR$(n) da n | 
n puede ser el resultado cadena 
de una operación 
Ejemplos 
a) PRINT STR$(3) da 3 
b) PRINT STR$(VAL(''12AB")) da 12 
6) PRINT STR$(12) + STR$(23) da 1223 
d) PRINT VAL(STR$(3x5)) da 15 
e) El programa: 


1 LET N$ = STR$(3 1 2) 
20 PRINT N$ 
30 END 


imprimirá: 9. 
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6. Código 


En el lenguaje BASIC a cada carácter (letra, 
número, signo, espacio en blanco) se le asocia un 
número que es su código llamado ASCII (América National 
Standar Code for Information Interchange). 


La relación de este código está al final de 
este Tema. 


Existen dos funciones para relacionar caracteres 
con códigos. 


La función ASC aplicada a una Cadenas A%$ da 
el código del primer carácter de Af. 


Nota 


El código ASCII está relacionado con el orden 
de las cadenas pues el ordenador las compara por el 
número de código de su primer carácter. Si éste es 
igual por el del segundo carácter y asi sucesivamente. 


Esto completa la ordenación de cadenas explicada 
en el Tema V. 


Ejemplos 
a) PRINT ASC('"'A'') da 65 
b) Si A$ = "49" 


PRINT ASC(A$) da 52 que es el código de "4". 


c) PRINT ASC(''B'")+ASC(''C'"') da 133 


7. Función CHR$ (carácter) 


La función GCHR$ se aplica a números comprendi- 
dos entre 32 y 126 y actúa de la siguiente manera: 


| CHR$(n) da el carácter de código n | 
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Ejemplos 
a) PRINT CHR$(65) da A 
b) PRINT CHR$(49) da 1 
c) El siguiente programa muestra el código ASCII. 
1f PRINT TAB(1fM);'"CODIGO ASCII" 
29 PRINT TAB(1f$);"----=====-=--- " 
30 p FOR 1=32 TO 126 
40 ES I, CHR$(1) 
50 LNEXT 1 
6% END 
imprimirá: 
Código Carácter Código Carácter Código Carácter 
32 espacio 52 4 72 H 
33 ! 53 5 73 I 
34 y 54 6 74 J 
35 A 55 Vi 13 K 
36 $ 56 8 76 E 
37 % 57 9 11 M 
38 8 -58 : 78 N 
39 d 59 ; 79 0) 
40 ( 60 E 80 P 
41 ) 61 3 81 Q 
42 A 62 2 82 RK 
43 + 63 ? 83 S 
bes 64 0 84 T 
45 - 05 A 85 U 
46 . 66 B 86 V 
47 / 67 G 87 W 
48 (0) 68 D 88 X 
49 1 69 E 89 Y 
50 2 70 F 9% Z 
51 3 FL G 91 [ 
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Código Cáracter 


ha 
a 
No) 
—— TN X XEÉÍXEMOAR—ODOSDAaA NGC -P*o50OQOo 7 p 


a 

N 

mi 
2 
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EJERCICIOS RESUELTOS 


X.1. Escribin un programa mediante el cual entrando 
una palabra cualquiera la escriba al revés. 


Solución 
El programa es: 


19 INPUT "La palabra es "; A$ 
20 FOR n=LEN(A$) TO 1 STEP -1 
30  PRINT MID$ (A$,n,1); 

40 NEXT n 

5H END 


X.2. Escribir un programa para obtenern mensajes cifaa- 
dos utilizando las sentencias ASC y CHRÍ sumando 3 


a cada código. 
Solución 
El programa es: 


19 INPUT ''El mensaje es "';¡A$ 
20 FOR I=1 TO LEN (A$) 

39 | LET p$=MID$(A$,1,1) 

49 | LET p$=CHR$(ASC(p$)+3) 

5 | PRINT p$; 

60 NEXT 1 

70 END 


Si Af es el mensaje: 
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"El jueves a las 6" 
imprimirá 
HofmxhyhvfHdHodvff9 


El programa para descifrar este mensaje sería 
el mismo cambiando en la línea 40, +3 por -3. 


x.3. Escribia un programa que dé los números capicúas 
menornes que 100000000 que sean cuadrados perfectos 
(números polindaomos). 


Solución 
El programa es: 
19 [p FOR a=19 TO 19009 


20 LET b=a*a 
34 LET c$=STR$(b) 


40 FOR i=1 TO LEN(c$) 

5h er n$(i)=MID$(c$,i,1) 

60 NEXT i 

70 | LET d$="" 

80 FOR k=LEN(c$) TO 1 STEP -1 
9 PS d$=d$+n$(k) 

100 | -NEXT k 


110 IF VAL(c$) <> VAL(d$) THEN GO TO 130 
120 | PRINT "El capicua "'';b;'" es el cua 


drado de "sa 
LZJ PRINT 
139 NEXT a 
140 END 


Los resúltados son: 


X.4. 
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121 = Eh 

484 = 22) 
676 = 26”, 
19291 = 101, 
pios 1d 
14641 = 1215 
4D8D4 = 202, 
44944 = 212, 
69696 = 264) 
94249 = 397; 

698896 = 836 


1002001 = 1001 
1234321 = 1111 
4008004 = 2002 
5221225 = 2285? 
6948496 = 26362 


Escribia un programa que cuente el número de 


palabras y el número de letras de un texto de menos 
de 256 caracteres. 


Solución 


19 
29 


El programa es: 


REM CONTADOR DE LETRAS 

PRINT 'Con este programa se cuenta el número de 
palabras de una frase y las letras de cada pala 
bra'': PRINT 

PRINT "Escribe una frase entre comillas" 

INPUT a$:CLS 

PRINT a$:PRINT 
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30 DIM c(20) 

40  LET j=Q 

50 FOR i=1 TO LEN(A$) 

60 LET x=ASC(MID $(a$,i,1)) 

70 IF ((x<65 OR x>90) AND (x<97 OR x>122)) AND 
j<> O THEN c(j)=c(3)+1: LET j=0: GO TO 100 

80 IF ((x<65 OR x>90) AND (X<97 OR x >122)) AND 
j = f THEN GO TO 100 

9) | LET j=3+1 

100 NEXT i 

119 IF 3<>f THEN LET c(j)=c(3)+1 

120 PRINT "En esta frase hay:'': PRINT 

125  LET m=8 

130 FOR n=1 TO 2f 

149 | IF c(n)<>f THEN PRINT c(n);'" palabras de "ym; 
"letras" 

145 | LET m=m+c(n) 

15% L-NEXT n 

160 PRINT : PRINT 'y en total ''zm;'" palabras" 

170 END 
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EJERCICIOS PROPUESTOS 


323, ¿Qué imprimirá el siguiente programa? 


1 LET A$="El precio de una entrada es de 


350 ptas" 
20 PRINT MID$(A$,4,6) 
30 PRINT 
40 PRINT TAB(1fP); MID$(A$,18,7) 
5% PRINT. 
6H PRINT TAB(2P); RICT$(A$,8) 
79 END 
* 324. ¿Qué imprimirá la ejecución del siguiente progra-— 
ma? 
10 LET A$="TEN ESPERANZA":LET B$="POR TELE" 
20 LET Cf$="A 21 76 ANTES DE":LET D$="A LAS 18" 
30 PRINT LEFT$(A$,2);MID$(A$,4,6);MID$(B$,2,1); 
40 PRINT MID$(B$,4,1);MID$(B$,6,2); 
59 PRINT MID$(C$,2,4);LEFT$(D$,6); 
60 PRINT RIGHT$(D$,1) 
7% END 
q Escribir un programa que sirva para imprimir 


una Cadena a$ de menos de 33 caracteres, subrayada. 


326. Escribir un programa para imprimir de un texto 
de 100 palabras las que empiezan por a y acaban en 
b estando las palabras del texto en líneas DATA. 


* 327. Escribir un programa para que en medio de la 
pantalla aparezca letra por letra una palabra de a 


270 


lo sumo 20 letras. 


328. Escribir un programa para que aparezca en pan- 
talla letra por letra la frase: 


NO FUME POR FAVOR 


y que una vez escrita desaparezca y vuelva a repetirse. 


129 Escribir un programa para que cuente cuántas 
vocales minúsculas tiene un texto dado. 


20 Escribir un programa para que cambie todas las 
vocales minúsculas por una vocal introducida de antema- 
no. 


«33 Escribir un programa que imprima todas las pala- 


bras que empiezan por P de un texto con un número 
de caracteres inferior a 256. (En el texto hay que 
colocar un espacio antes de los signos , ; +. ? ! ...) 


IL Escribir un programa para que imprima mensajes 
cifrados con claves distintas del problema resuelto 
número 2 de este tema. 


333. Escribir un programa que intercale una cadena 
B$ entre el de lugar I e I+1 de una cadena Af. 
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*334. Escribir un programa que cuente cuántas veces 
se repite la cadena B$ dentro de la cadena Af. 


*335. Escribir un programa en el que dados el nombre 
(no compuesto) y los dos apellidos de una persona 
en este orden, escriba el primer apellido luego el 
segundo y a continuación sólo la inicial del nombre 
seguido de un punto. 


336. En una línea DATA están almacenados los nombres 
de N personas en la forma siguiente: 1 apellido 
22 apellido Nombre. 

Escribir un programa en el que introduciendo 

' , p Ñ er 
el primer apellido ¡imprima el nombre completo (1 
apellido 2% apellido Nombre) de todas las personas 
con este primer apellido. 


DI Escribir un programa que compare una quiniela 
con el resultado de la jornada y que imprima el número 
de aciertos de la misma. 


338. Una peña quinielística acostumbra a hacer 50 
quinielas cada jornada y las repite en la jornada 
siguiente. Escribir un programa en el que entrando 
la quiniela con el resultado de la jornada, imprima 
el número de quinielas de 14 aciertos, el de 13, el 
de 12 y el de 11, de entre las 50. 

(Nota: Las quinielas fijas de la peña, guardadas en 
un DATA) 


5 Escribir un programa que imprima la primera 
letra de cada palabra que hay en una frase de menos 
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de 256 caracteres. 


* 340. Escribir un programa para que calcule la raíz 
cuadrada de un número e imprima el resultado con 37 
cifras. 


ANEXO 
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1. Sentencia INKEY$ (tecla) 


La sentencia INPUT sirve para entrar datos y 
detiene la ejecución del programa esperando que se 
introduzcan los datos pedidos. 


Existe otra sentencia para la entrada de carac- 
teres, es la sentencia INKEY$. Esta sentencia es pareci- 
da a la sentencia INPUT pero no detiene la ejecución 
del programa. 


Cuando al ejecutarse un programa, éste llega 
a la línea 


n LET A$ = INKEY$ 


el ordenador repasa el teclado y si en este instante 
se tiene pulsada una tecla, asigna a Af el carácter 
que corresponde a la tecla pulsada. Si en este instante 
no se pulsa ninguna, entonces Af es la cadena vacía. 


Es muy frecuente utilizar INKEY$ en la forma 
siguiente: 


n LET A$ = INKEY$ : IF A$ = " " THEN GO TO n 


o bien: 
n IF INKEY$ = " '" THEN GO TO n 
m  LET A$ = INKEY$ 


Estas líneas forman un bucle que sólo se termina 
pulsando una tecla a fin de asignar un Caracter a 
la variable Af. 


Obsérvese que las líneas del tipo anterior son 
como INPUT pero no hace falta pulsar ENTER o RETURN. 
Esto es particularmente útil en programas de juegos. 


2. Sentencias POKE y PEEK 


Cuando asignamos valores a variables numéricas 
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A,B,C,..., Oo alfanuméricas A$,B$,C$,..., el ordenador 
almacena éstos en posiciones de su memoria RAM. Estas 
posiciones de memoria están numeradas y el ordenador 
almacena también en ellas las líneas de programa. 


Algunos segmentos de memoria están reservados 
para contener variables especiales. Por ejemplo, infor- 
mación sobre la pantalla, sobre los sonidos que pueden 
producir las teclas, etc... 


Existe en BASIC una sentencia que puede modificar 
estas posiciones de memoria especiales. 


a) Sentencia POKE (hurgar) 


Se utiliza de la siguiente forma: 
POKE M,N 


donde M es un número que indica una posición de memoria 
y N es el número que queremos poner en la posición 
M. O sea, POKE M,N almacena el valor N en la posi- 
ción M (0<€N< 255). 


Naturalmente para usar la sentencia POKE es 
necesario conocer las posiciones especiales de memoria 
del ordenador (mapa de memoria) y el significado que 
tienen los números almacenados en éstas. Este conoci- 
miento junto con la aplicación adecuada de la sentencia 
POKE proporciona un gran dominio del ordenador. Hay 
que decir también que usar POKE erróneamente tiene 
un gran poder destructor en los programas. 


b) Sentencia PEEK (mirar) 
La sentencia PEEK actúa de forma inversa a POKE. 


Se utiliza de la forma siguiente: 
PEEK (M) 


y da el número N almacenado en la posición de memoria M. 
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Si hacemos primero POKE 23609,10P0 y luego pulsa- 
mos: 


PRINT PEEK (23609), imprimirá 100 


En resumen PEEK (M) sirve para mirar el conteni- 
do de la posición de memoria M. 


3. Grabación y carga de programas 


Tal como se ha indicado, al desconectar el orde- 
nador queda borrada la memoria RAM. También es conve- 
niente, en general, borrar un programa antes de almace-' 
nar otro en el ordenador. Es necesario pues guardar 
los programas en memorias no volátiles, exteriores 
al ordenador (memorias de masa). Los dispositivos 
más simples y baratos son las cintas de cassetes aunque 
los mejores son los discos. 


Se utilizan en general dos comandos para grabar 
programas y cargarlos respectivamente que son 


SAVE (o CSAVE) y LOAD (o CLOAD). 
(guardar) (cargar) 


Si tememos un programa en la memoria RAM del 
ordenador, se puede grabar en cassete haciendo: 


SAVE Miumes cas. 
1 


Nombre del programa. 


Para volver a cargar el programa desde la cinta 
al ordenador se utiliza: 


EDAD Mido came 
1 
Nombre del programa. 
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Estos comandos pueden ser algo distintos en 
cada ordenador, y es necesario, una vez más, consultar 
el manual para utilizarlos correctamente. 


4. Ficheros 


Las líneas DATA utilizadas hasta ahora sirven 
para almacenar datos conocidos antes de la ejecución 
de un programa pero no para grabar datos obtenidos 
como resultado de este programa. Otro ¡inconveniente 
de la sentencia DATA es que para modificar datos hay 
que cambiar líneas de programa lo cual resulta engorro- 
SO. 


Para un tratamiento más preciso de datos se 
utilizan los ficheros, 


a) Ficheros secuenciales 


Son los únicos que se pueden utilizar en cintas 
cassete, en ellos los datos están almacenados unos 
detrás de otro en el orden que se van escribiendo. 


Las sentencias para utilizar ficheros son en 
general: 


OPEN, CLOSE, PRINTA e  INPUTfA 


Aunque la utilización de estas sentencias varía 
según el tipo de ordenador daremos unas indicaciones 
generales. (Debe consultarse el manual de cada ordena- 
dor). 


OPEN (abrir) 


Para utilizar un fichero es necesario primero 
abrirlo y para esto sirve la sentencia OPEN. 
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OPEN indica al ordenador que se abre un fichero 
y debe escribirse a continuación: 


El nombre del fichero 


El número del fichero 


Un ¡indicador para saber si vamos a escribir 
datos en este fichero o por el contrario vamos 
a leer datos ya escritos en él. 


La forma en que se dan estas indicaciones depen- 
de del ordenador pero las líneas que utilizan OPEN 
son de la forma: 


n OPEN "TELE.';4;for output as 
o bien 
n OPEN "TELE." for output asf4 


e indicarán al ordenador que se abre el fichero TELE., 
cuyo número es el 4 para escribir o guardar datos 
en él. 


En algún ordenador en lugar de escribir 
for output as, bastará escribir un código (por ejemplo 
1) que es el de escribir. 


n OPEN "TELE.';4;for input as 
indicará que abrimos el fichero TELE. de número 4 


para leer datos de él. (For input as puede estar sus- 
tituído por un código de lectura). 


PRINTA 


PRINT4 se utiliza para escribir (guardar) datos 
en un fichero. Así: 


n PRINTA 4, A,B,C$ 


escribirá (grabará) en el fichero 4 los valores de 
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A,B y C$. O sea, PRINTA actúa como PRINT (sin %) pero 
en el fichero en lugar de la pantalla. 


Es importante recordar que para utilizar PRINTF4 
es necesario que en una línea anterior se haya abierto 
el fichero 4 con la indicación de que se abre para 
escribir en él. 


INPUTA 
INPUT se utiliza para leer datos de un fichero 


asignando estos datos a unas variables. 


Asi, 
n INPUTA 4, A,B,C$ 


asignará a las variables A,B,C$ los valores que estaban 
guardados en el fichero 4. Es obvio que el tipo de 
variables (muméricas o alfanuméricas) guardadas deben 
corresponderse con las de la línea INPUTA. 


Para utilizar INPUT es necesario que en una 
línea anterior se haya abierto el fichero 4, con la 
indicación de que es para leer datos de él. 


CLOSE (cerrar) 


La sentencia CLOSE sirve para cerrar el fichero 
después de haber escrito o leído datos. 


Basta escribir 
n CLOSE k 


para que el ordenador cierre el fichero k. 


Ejemplo 


El programa siguiente serviría para crear un 
fichero de 100 nombres y sus correspondientes teléfonos. 
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10 OPEN "TELE.' for output asf5 
29 pFOR I=1 TO 100 

3% | INPUT ''Nombre",N$ 

4% | INPUT '"Telefono",T 

SÓ | PRINTA5,N$,T 


60 +NEXT I 
7%  CLOSEF5 
8% END 


Para leer los datos del fichero anterior utiliza- 
remos el programa 


5 DIM N$(10P0) : DIM TC(100) 
19 OPEN "TELE." for INPUT A$A5 
20 ES I=1 TO 100 


30 | INPUTAS;¿N$(1),T(1) 
49 LNEXT 1 

5  CLOSEFA5 

60 END 


Después de ejecutarlo, las variables N$(1) con- 
tendrían los nombres y las T(1) los correspondientes 
teléfonos. 


Insistimos, una vez más, en que hay pequeñas 
diferencias en cada modelo de ordenador respecto 'al 
uso de OPEN, CLOSE, PRINTA% e INPUT. 


b) Ficheros de Acceso directo 


Para poder modificar los datos de un fichero 
secuencial es necesario volcar éstos en la memoria 
RAM y crear otro fichero con los datos modificados. 


Estos problemas resultan mucho más fáciles en 
en los ficheros de acceso directo. Estos se realizan 
en unidades de discos (generalmente discos flexibles 
o floppy disks). El estudio de las unidades de discos 
y de los ficheros de acceso directo escapa de las 
posibilidades de este texto. 


SOLUCION DE LOS EJERCICIOS 


SOLUCION DE LOS EJERCICIOS 


Tema Il 


l. No, en base 6 el equivalente al número decimal 6 es 
el 10. 


2 3) 102 ; b) 101/) €) 11 5 d) 1100; 


Z 
3. 157. 
4. 200,3: 
d. 101000100; 
6. a) 2232327 ; b) 10010011010011010/, 
Ea 346,7 = 10110101, ; 250;7 = 10000101/, 
8. 4758 = 10331, : 274,8 = 2330, 4 


9, 18166, 9 


10. a) 939041, 5 b) 4481, 


6 12 


11. 4024734 
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= 17 


12. 10001;) 


13. + j0 
0 ¡0 
lo 44 
2 1Z 
+13 
4 |4 10 
5:13 10" Tb 25718 
616 10 11.12 13: 14 
14. 10110/) 
15. 10010000100/, 
16. 111100/, 
1% 5566/g 
18. 4743 


19. Cociente: 124 , resto: 236 


20. 4 


2d: 8 


22,6 


23. 184826,, 


oooooOoo Jo 


3.4 5 6 
0-.00..0 
3.4 5 6 
6-11 13.15 
12 15 21 24 
15 22 26 33 
21 26 34 42 


24 33 42 51 


24. 


25. 


26. 


27. 


28. 


x= 71 
ua 
x=á4 
> 
0,221 
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29, 


30. 


31. 


32. 


33. 


34. 


39. 


36. 


37, 


38. 


a) Contiene programas y funciones grabadas por el fa- 


b) 


No 


bricante. 
No 


Tema ll 


La respuesta correcta es la b) 


a) 
b) 


a) 
b) 


19682.916 
98367573 


0.3619375 
1,164435 E-9 


V.1108246 
4,5491089 


3.8641593 E+10 
1,3142168 E+8 


41.24 
125.42917 
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Ml. 


40. 


41. 


42. 


43. 


a) 1,2 seg. ; b) 5.2359878 rad/seg 
c) 4.8333333 Hertz ; d) 16.493362 cm/seg 
e) 86.35994 cm/seg? 


a) M.85458725 rad ; b) 1.2210069 rad  ; 
c) 1,1888503 rad 


a) 0.43388374 ; b) M.72654253 


a) a = 1.389151 rad ; b)a = 1.3901686 rad ; 
c) a = 1.0636325 rad 


44. ... 


45. 


46. 


47. 


48. 


49. 


50. 


51. 


— 


a) 22.459158 ; b) 23.140693 


—" 


a) 1.5049774 ; b) 6.29319 


0.39193 ; b) 2.1589P154 


e 


-0.0068578 


-2.3890128 


Mensaje de error por entrar en la expresión una poten- 
cia de base negativa. 


a) 1500625 ; b) 1555.8096 
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32. 


33. 


54. 


Id. 


56. 


d: 


58. 


Mensaje de error. 


Mensaje de error 


a) 410 ; b) 156.25 


a) 835 ; b) 34 


PRINT INT(RND = 100)+1 


1000 


a) Un número aleatorio entre O y 100(0 < x < 100) 
b) Un número entero aleatorio entre 1 y 10 (1<x<10) 


Tema lll 
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59. La respuesta correcta es la c), pues las comparaciones 
lógicas sólo admiten como resultado la afirmación o 


63. 


la negación. 


Entrar C 


j deA 
dl e, No 5 No 
Le £ 15000? e 45000? 


pos 


Si 


Calcular 
Il = 10% de C 


Calcular 
Il = 20% de C 


Calcular 
I = 30% de C 
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67. 


70. 


Entrar A 
Entrar B 
Calcular A-B 


| Imprimir 


us 
t 


Hacer | 
i=0 | 


Aumentar 
ienl 


Imprimir 
Aj 


YE. 


80. 


82. 


91. 


93. 


96. 
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Nótese que se comparan todos con A, y cada vez que 
se encuentra uno menor que Aj se coloca en su lugar. 


El Aj resultante es el menor. 
El área del cuadrado de lado 5 es igual a 25. 


La linea 40 es errónea, pues no pueden multiplicarse 
las variables alfanuméricas. 


19 PRINT A$ 
29 PRINT 
3/4 PRINT B$ 
44 PRINT 
5 PRINT C$ 


a) El programa es: 


10 LET A =3: LETB=45 
29 PRINT((531.2:A)?2 + ABS(TAN(2=0*B/3))1 (1/5) 
30 END 


b) Basta escribir nuevamente la línea 1 de la siguien- 
te forma: 


19 LET A = 7.3: LET B = 59,8 


Nos daría un mensaje de error de variable no definida 
o bien 


Y 
0 


según el modelo de ordenador utilizado. 


2 75 46 
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97. Ar*2 = 5 
A+A = 5 


pues al repetir la línea 3 sin ninguna sentencia queda 
eliminada la anterior. 


100. No hay errores. Su ejecución da como resultado 


50 
4 
400 


107. La 30 es incorrecta puesto que la asignación está pues- 
ta al revés, debe ser LET X = A+B 


111. 1 LET M = A (sirve para guardar la varia- 
20 LET A=B. ble A) 
30 LET B = M 
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Tema IV 


117. Esperará que el usuario le proporcione un número y 
una Cadena de caracteres. 


120. Sí, pues en la línea 30 , At2 sólo lo efectuará si 
A>0, luego debe ser 


39 PRINT A* A 


123, 10 REM Datos personales 
20 INPUT "Nombre"; A$ 
30 INPUT "Primer apellido" ; B$ 
4 INPUT "Segundo apellido"; C$ 
50 INPUT "EDAD" ; D 
68 INPUT "Número carnet" ; E 
7% PRINT "Nombre: "; A$ 
80 PRINT 
9% PRINT 
100 PRINT "Primer apellido: " ; B$ 
119 PRINT 
124 PRINT 
139 PRINT "Segundo apellido: " ; C$ 
149 PRINT 
159 PRINT 
160 PRINT "Edad: "; D 
170 PRINT 
189 PRINT 
199 PRINT "Número carnet: "; E 
200 END 
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125. 


137. 


140. 


148. 


132 


a) Hay un error de sintaxis en la línea 3/. Debe ser 


30 


LET Y = A/B 


b) Hay un error de sintaxis en la línea 3. Debe ser 


39 


LET Y = A + B/A*C 


c) No hay errores. 


19 


REM División entera 


20 INPUT "Dividendo =" ; a 


25 
39 


INPUT "DIVISOR =" ; b 

LET Z = a/b 

PRINT "El cociente es " ; INT(Z) 
PRINT "El resto es "; a - b»> INT(Z) 
END 


INPUT "Primer término ="; a 

INPUT "Diferencia =" ; d 

INPUT "Número de términos =" ; n 
LET u = a + (n-1) xd 

PRINT "La suma es S = "; (a+u) = n/2 
END 


INPUT "Longitud en cm. =" ; ] 

LET T = 2x7 x(1/981) 1 0.5 

PRINT "Para l =";1;" cm, el perío- 
do es T =*"; T 

END 


INPUT Vo,a,t 

REM Componentes de la velocidad 
PRINT Vo * COS(a), Vo * SIN(a)-9.81 » t 
REM Coordenadas del proyectil 

PRINT Vo xt COS(a), Vo x*+ t SIN(a)-9.81 
x*t 12/2 

END 


155, 


158. 


161. 


168. 


169. 
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Tema V 
No, pues siempre se ejecutará la línea 150 


No lo podemos asegurar, puesto que en alguna línea 
anterior podría tener una orden de salto a la 110. 


19 IF A/2 = INT(A/2) AND  A>4f THEN PRINT A 


19 INPUT A, B, C 

20 IF B<A THEN LET A = B 
3N IF C<A THEN LET A = C 
40 PRINT "El menor es "¡A 

50 END 


19 INPUT a,b,c,d,e,f,g,h,i,j 

20 PRINT "A continuación hay que pulsar la 
clase de mercancia que se vende" 

30 INPUT M$ 


40 IF M$ = "A1" THEN LET a=a- 1 
50 IF M$ = "A2" THEN LETb=b - 1 
60 IF M$ = "A3" THEN LET ec =<c-1 
70 IF M$ = "A4" THEN LET d = d - 1 
89 IF M$ = "A5" THEN LETe=e- 1 
90 IF M$ = "A6" THEN LET f =f - 1 
109 IF M$ = "A7" THEN LET g = 8 - 1 
110 IF M$ = "A8" THEN LET h = h - 
120 IF M$ = "A9" THEN LET i =i - 1 
139 IF M$ = "A10" THEN LET j¡=j- 1 
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149 INPUT "Hay mas ventas a contabilizar?";V$ 
150 IF V$ = "Si" THEN GO TO 30 

160 PRINT "Quedan en total:" 

170 PRINT a;" de Al" , b;" de A2" 

180 PRINT c;" de A3" , d;" de A4" 

19% PRINT e;" de A5" , f;¡" de A6" 

290 PRINT g;" de A7" , h;" de A8" 

210 PRINT i¡" de A9" , j" de A1P" 


220 END 
175. 10 PRINT "Grados"; TAB(8);"Seno";¡TAB(20);"Co- 
seno" 
20 LET X =0 
39 PRINT 


49 PRINT TAB(3);X;TAB(8);SIN(X += 7/180); 
TAB(28); COS(X:/180) 

50 LET X= X 41 

69 IF” X<= 94 THEN GO TO 39 

79 END 


178. 10 LET n = 1 
20 PRINT “atm” -= “(1 Vo to 
30 LET n=n+1 
49 GO TO 2f 
50 END 


180. En la división entera D | d 


r e 
se verifica: r = D - d.c, siendo c = INT(D/d) y en nues- 
tro caso d = 4 


19 INPUT n 
20 LET r =m - 4=INT(n/4) 
30 IF r = Y THEN PRINT "i elevado a ";n; 
” "” 
2 
= 1 THEN PRINT "i elevado a ";n; 
dz * 


' 


40 IF 
" 53 


|| 


184. 


189. 


191; 
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5 IF r = 2 THEN PRINT "i elevado a ";n; 
"”n Z "-1 

60 IF r = 3 THEN PRINT "i elevado a ";n; 
" Z "> -j 

79 GO TO 19 

80 END 

1Q LET F VD: LETM=Y0 


20 LET n = INT(RND = 100) + 1 

30 IF n>= 41 AND n<= 68 THEN F =F + 1 

4 IF M = 1000 THEN GO TO 100 

5Q LETM=Meél 

60 GO TO 20 

100 PRINT "La frecuencia relativa es ";F/1000 

119 PRINT 

120 PRINT "La diferencia entre la frecuencia 
relativa y la probabilidad es ";¡F/1000-4.2 

139 END 


10 INPUT n 

20 LET F = 1 

30 IF n = 1 THEN GO TO 74 
40 LET F =F xn 

50 LETn=n-1 

60 GO TO 30 


70 PRINT "Factorial de ";n;" es ";¡F 
80 END 


Este programa se realizará de otra manera en el pró- 
ximo tema. 


19 INPUT "Numero a descomponer";n 

20 LET a =n: LET e = 1 

30 LET d = n/2 

44 IF d = INT(d) THEN PRINT 2 : LET c = 
=0%2 : LET md: 60 TO 30 

50 LET k = 3 

60 LET d = n/k 
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70 IF d = INT(d) THEN LET n = d : PRINT 
k: LETce=cx*k: GO TO 60 

80 LET k = k+2 

90) IF k>a/2 AND c = 1 THEN PRINT a; 
" es primo" : GO TO 124 

100 IF c = a THEN GO TO 120 

110 GO TO 60 

120 END 


ESA 


200. 


204. 


211, 


216. 


301 


Tema VI 


No, pues la línea 2% junto con la 4M harán que n au- 
mente de 4 en 4. 


Para números menores o iguales que 6 imprime 10 ve- 
ces este número y luego él mismo aumentado en 4. 


Para números mayores que 6 escribe el número y lue- 


go mensaje de error puesto que encontrará un NEXT 
sin FOR. 


Escribirá M indefinidamente pues debido a la línea 20 
y a la 44 el valor de n siempre en Q. 


19 PRINT 12 29 


20 | PRINT X 12 + 1 

39 = NEXT X 

49  PRINT "Fin" 

59 END 

19 INPUT n 

20 LETS = 1 

39 ¡FOR i= 1TOn 

49 LETS =S +(91i 
59 NEXT i 

69  PRINT "S = ";S 


71D END 
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218. 


219. 


224. 


19 INPUT "El primer término es";al 

20 INPUT "La razón es";r 

30 INPUT "El número de términos es";N 
44 LET L. = al / (1-r) 

5 PRINT "El límite de la suma es ";L 


60 LET S:=:al 

70 FOR i = 1 TO N-1 
80 LETS =S+alerti 
90 NEXT i 


100  PRINT "La suma de los ";N;" primeros 
términos es ";S 

119 PRINT "La diferencia entre el limite y 
la suma de los ";¡N;" primeros términos 


es ";¡L-S 
129 END 
19 INPUT N 


20 LETA=0 

30 FOR 1 = TON 

40 LETX RND =x 10 

50 ELBJT. Y RND = 10 

60 | IF SQR ((X-5) = (X-5) + (Y-5) + (Y-5))< 5 
THEN LET A = A + 1 

70 NEXT i 

80 PRINT "La frecuencia relativa es "¡A/N 

99 PRINT "Un valor aproximado de pi es " 


43 A/N 
100 END 
1 pPFOR C = 3 TO 49 
20 FOR A = 2 TO 39 
30 FOR B=1TOA - 1 
44 IFAsA+Bx*B = CxC THEN PRINT 
"A =": A, "B=": B, "nc". € 
50 NEXT B 
60 NEXT A 
79 ÉENEXT C 


89 END 


, 


227. 


229. 


235. 
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19 INPUT "Número de puntos y radio"; n,R 
20 FOR a = QM TO 2x7 STEP(2=*>)/n 
30 | PRINT "Las coordenadas son:" 


44 PRINT "X = "; R=*x COS(a), 
" Y< "; R» SIN(a) 

50 NEXT a 

60 END 

1Ó pFOR a = 1 TO 9 

29 FOR b = YN TO 9 

39 LET x = ax 100 +bx*1f0 + a 

44 LET y = 2xaxa + bx*b 

50 IF x = y THEN PRINT x 

60 NEXT b 

79 NEXT a 

8% END 


Ejecutando el programa se observa que no hay ninguno. 


19 INPUT "Número"; n 

20  PRINT "Los divisores de ";n;"  son:" 
30 PRINT 

40 FOR ¡i = INT(n/2) TO 1 STEP -1 

5 | IF (n/i)< > INT(n/i) THEN GO TO 70 


69 | PRINT i 
79 LNEXT i 
89  PRINT n 


9 END 
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241. 


243. 


248. 


252. 


254, 


258. 


Tema VI 


Sí puesto que en la línea 30 se asigna a una variable 
alfanumérica un dato numérico. 


En la línea 1 debe ser A,B 
En la línea 20 debe ser LET X = A + B 
En la línea 40 debe ser 23,10 


Imprimirá: 2,4,-3,2,-4,-3,7.2 


Da la temperatura de cada día de la semana y la 
temperatura media, que en este caso es 19,85 grados. 


19 PFOR n = 1 TO 29 
20 | READ A,B,C,D 

39 | PRINT A,B,C,D 
49 | RESTORE 

59 LNEXT n 

69 DATA 1,2,3,4,5,6,7 
7d END 


19 READ L,Ma,Mi, J,V,S,D 

20 LET S = L+Ma+Mi+J+Vi+S+D 

30 PRINT "Gasto total = ";S 

4 PRINT "Gasto medio = ";S/7 

5 DATA ...(gastos de cada día de la semana) 
60 END 


260. 


264. 


265. 


89 


19 
29 
30 
49 
50 
69 
79 
80 
90 
190 
119 
129 
139 
149 


IF X>1.70 LE 
IF" X<1¿60 LE 
NEXT i 


yn 
E 
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PRINT "Número de personas de altura 


mayor que 1.70 = 


PRINT "Número de personas de altura 


menor que 1.68 = 


DATA ...(altura de las N personas) 


END 


READ p$ 
FOR i = TO 9 
READ c$ 


IF c$<p$ THEN LET p$ = c$ 


NEXT i 


PRINT "EL primero es: 


DATA "PEDRO" , "JUAN", "JORDI", 
"XAVIER" , "DAMIAN" , "DAVID", 
"PEPE" , "LUIS" , "ORIOL" , "MANEL" 


END 


FOR N = 1 TO 10 
FOR I = 1 TO 19 


IF A = 1 THEN PRINT -TAB(I+10); "sx"; 


E A 
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159 DATA 1,1,0,1,1,1,0,1,0, 1 
160 DATA 1,0,0,1,1,0,0,1,0,1 
170 DATA. L1,1,1,1,1,1,1,0,1 
189 END 


269. 19 PRINT : PRINT 

20 READ N$,C$ 

30 IF N$ = "F" THEN PRINT "No tengo memorizados 
más países": GO TO 159 

59  PRINT "La capital de "; N$; " es?" 

60 FOR I=1 TO 3 

70 INPUT X$ 

8) IF X$  C$ THEN PRINT "No es correcto" 
IF I 3 THEN PRINT "Prueba otra vez" 

90 IF X$ = C$ THEN PRINT "Muy bien": GO TO 1/9 

1990 NEXT I 

119 CLS 

129 PRINT "La capital de ";¡N$;" es "¡C$ 

139 GO TO 19 j 

149 DATA "E.E.U,U." , "Washington" , "Canadá" , 


"Otawa" , "México", "México D.F." , "Guatemala", 
"Guatemala" , "El Salvador" , "San Salvador" , 
"Honduras"  , "Tegucigalpa" , "Nicaragua" , 
"Managua" 

159 DATA "Costa Rica" , "San José" , "Panamá" 
"Panamá" , "Cuba" , "La Habana" , "Rep. 
Dominicana"  , "Santo Domingo" , "Colombia" 
"Bogotá" , "Venezuela" , "Caracas" , "Ecuador", 
"Quito" 

160. DATA "Perú"... "Lima". "Brasil". "Brasilia", 
"Paraguay" , "Asunción" , "Uruguay" , "Montevi 
deo" , "Argentina" , "Buenos Aires" , "Chile" , 
"Santiago" 

179 DATA "Bolivia" , "La Paz" , "Jamaica" , Kings 
ton" , "Haití" , "Puerto Príncipe" , "Guayana 
Francesa” , "Cayena", "EF", "PF" 


189 END 


21 Ll 


119 


129 


139 


149 


159 
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PRINT "Las materias son:" 

PRINT "1 FISICA" : PRINT "2 QUIMICA" 
PRINT "3 FISIOLOGIA Y MEDICINA" : PRINT 
"4 HFITERATURA" : PRINT "5 LA PAZ" : PRINT 
"6 ECONOMIA" 

PRINT 

INPUT "Número de la materia"; A 

CLS 

PRINT "Los premios Nobel en la década de 
los 70 en esta materia son:" 

FOR í = 1 TO 112 


READ n , ES 
IFn = A THEN PRINT E$ 
NEXT i 


DATA 1, "Louis Neil (Francia)" ,2, "Luis F. 
Leloir (Argentina)", 3, "Bernard Katz (Alema- 
nia), Julius Axelrod (EE.UU), Ulf von Euler 
(Suecia)", 4, "Alexander Solzhenitsyn (URSS)" , 
5, "Norman Borlaug (EE.UU.)" 

DATA 1, "Dennis Gabor (Gran Bretaña)", 2, 
"Gerhard Herzberg (Canadá)", 3, "Earl Suther 
land (EE.UU.)" , 4, "Pablo Neruda (Chile)", 
5, "Willy Brandt (Alemania)", 6, "Simon Kuznets 
(EE¿UU.)" 

DATA: 1, "John Bardeen (EE.UU.), Leon  L. 
Cooper (EE.UU.), John R. Schrieffer (EE.UU.)", 
2, "Christian B. Anfinsen (EE.UU.), Stanford 
Moore (EE.UU.) , William Stein (EE.UU.)" 

DATA 3, "Gerard Edelman (EE.UU.) , Rodney 
R. Porter (Gran Bretaña)", 4, "Heinrich Boll 
(Alemania)", 6, "John R. Hicks (Gran Bretaña), 
Kenneth J. Arrow (EE.UU.)" 

DATA 1, "Brian Josephson (Gran Bretaña) 
, Leo Esaki (Japón) , Ivar Giaever (EE.UU.)" 
2, "Ernst O. Fischer (Alemania), Geoffrey 
Wilkinson (Gran Bretaña)" 

DATA 3, "Nikolaas Tinbergen (Holanda), Karl 
von Frisch (Austria) , Konrad Lorenz (Austria)", 
4, "Patrick White (Australia)", 5, "Henry A. 
Kissinge (EE.UU.), Le Duc Tho (Vietnam N.)", 
6, "Wassily Leontief (EE.UU.)" 
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169 


179 


189 


190 


209 


219 


220 


230 


240 


259 


DATA 1, "Martín Ryle (Gran Bretaña), Antony 
Herwish (Gran Bretaña)", 2, "Paul J. Flory 
(EE.UU.)", 3, "George Emil Palade (EE.UU.), 
Albert Clauder (Bélgica), Christian de  Duve 
(Gran Bretaña)" 

DATA 4, "H. Martinson (Suecia), Eyvin Johnson 
(Suecia)", 5, "Eisaku Sato (Japón) , Séan Mc.Bri 
de  (Irlanda)", 6, "Karl G. .Myrdal (Suecia), 
Friedrich August von Hayek (Gran Bretaña)" 
DATA 1, "Aage N. Bohr (Dinamarca), Ben 
R.  Motlelson (Dinamarca), James  Rainwate 
(EE.UU.)", 2, "John W. Cornforth (Gran Bretaña) 
Wladimir Prelog (Suiza)" 

DATA 3, "Renato Dulbecco (EE.UU.) , David 
Baltimore (EE.UU.), Howard Temin (EE.UU.)", 
4, "Eugenio Montale (Italia)", 5, "Andrei Sajarof 
(URSS)", 6, "Lenidid V. Kantorovich (URSS), Tia 
lling C. Koopmans (Holanda)". 

DATA 1, "Philip W.Anderson (EE.UU.) , John 
van Vlek (EE.UU.) , 2, "Ilya Prigonine (Bélgica) 
3, "Rosalyn Yalow (EE.UU.) , Roger Guillemin 
(EE.UU.) , Andrew Schally (EE.UU.)" 


DATA 4, "Vicente Aleixandre (España)"  ,5, 
"Amnistía Internacional" ,6,  "Berthil  Ohlin 
(Suecia) , James Meade (Gran Bretaña)" 

DATA 1, "Piotr L. Kapitsa (URSS), Arno A. 
Penzias (EE.UU.) , Robert W. Wilson ([ EE.UU.)", 
2, "Peter Mitchell (Gran Bretaña)", 3, "Werner 
Arber (Suiza) , Daniel Nathaus (EE.UU.) , 


- Hamilton O. Smith (EE.UU.)" 


DATA 4, "Isaac B. Singer (EE.UU.)" ,5, "Mena- 
hem Begin (Israel) , Anwar-el Sadat (Egipto)", 
6, "Herbert A. Simon (EE.UU.)" 


DATA 1, "Sheldon L. Glashow (EE.UU.), Steven 
Weinberg (EE.UU.) , Abdus Salam (Pakistán)", 
2, "Herbert Ch. Brown (EE.UU.) , Georg Wittig 
(Alemania federal)", 3, "Altan M. Cormacck 
(EE.UU.), Godfrey N. Heunsfield (Gran Bretaña)" 
DATA 4, "Odysseus Elytis (Grecia)",5, "Teresa 
de Calculta", 6, "Theodore W. Schultz (EE.UU.), 
Arthur Lewis (Gran Bretaña)" 


260 


274 


289 


309 


DATA 1, "James W. Cronin (EE.UU.) , Val 
E, Fitch. (EE,UUJ". 2. "Paul Berg  (EE¿UU.)., 
Walter Gilbert (EE.UU.) , Frederic Sanger (Gran 
Bretaña)" ,3, "Baruj Benacerraf (EE.UU.) , 
George Snell (EE.UU.) , Jean Dausset (Francia)" 
DATA 4, "Caeslaw Milosz (Polonia)", 5, "Adolfo 
Pérez Esquivel (Argentina)", 6, "Lawrence R. 
Klein (EE.UU.)" 

END 
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Tema VIIN 


277. No porque en la subrutina encontraría un RETURN 
sin GOSUB. 


281. La superficie del cuadrado de lado 2 es 4 
La superficie del cuadrado de lado 5 es 25 
La superficie del cuadrado de lado 8 es 64 
La superficie del cuadrado de lado 9 es 81 


282. El programa es correcto. No importa donde se defi- 
nan las funciones. 


284. 19 PRINT "Sl=1" 
20. LET S=1 
30 pPFOR n=1 TO 14 
40 | GOSUB 100 
50 | LET m=1/k 
60 | LET S=S+m 
79 | PRINT "S";n+1;"=":S 
89 "NEXT n 
9% GO TO 150 
100 LET k=1 
110 FFOR x=1 TO n 
129 [Ler k=kx*x 
139 ¿NEXT x 
149 RETURN 
159 PRINT "La diferencia entre S15 y e es ":S-EXP(1) 
169 END 
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293. 10 DEF FN f(a,b,c)=2x*a+3x*b+4x*c+2*ax*b+3x*bx*C 
20 ¡"FOR a=0M TO 7 


39 FOR b=3 TO 14 
40 FOR c=5 TO 12 
50 PRINT "a=":a;TAB(7);"b=":b;TAB(14);"c=";c; 


TAB(21); '2="5 FNf (a,b,c,) +FN fla,b,c) 1 2 + 
FN f(a,b,c) 1 3 

60 NEXT c 

79 NEXT b 

80 “NEXT a 

9% END 


295. 10M REM CALCULO DE f COMPUESTA CON g 
110 LET z=FN f(x) 
129 LET y=FN gíz) 
139 RETURN 


298. 19 INPUT "Entrar a y b"; a,b 
29 INPUT "Entrar c y d"; c,d 
30 PRINT TAB(14);"MENU" 
35 PRINT: PRINT 
40 PRINT "1 calcular la suma" 
59 PRINT "2 calcular el producto" 
60 PRINT "3 calcular el cociente" 
79 INPUT "Opción deseada"; m 
80 ON m GOSUB 100,200,300 
85 IF m<1 OR m>3 THEN GO TO 74 
99 PRINT "El resultado es"¿R;"+(";I7")i" 
95 GO TO 344 
100 REM SUMA 
110 LET R=a+c : LET I=b+d 
120 RETURN 
200 REM PRODUCTO 
210 LET R=ax*c-b*d : LET I=ax*d+bxc 
229 RETURN 
300 REM COCIENTE 
310 LET R=(axc+bxd)/(cx*c+dx*d) 
329 LET I=(bxc-ax*d)/(cxc+dx*d) 
339 RETURN 
340 END 
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TEMA_IX 


302. Imprimirá todos los números de la línea DATA y 
también la media aritmética (M.A.) de ellos que 
es 4,1266666 


306. 


DIM A(3) : DIM B(3) 

FOR I=1 TO 3 

PRINT "Componente ";l;" de A?":INPUT A(I) 
PRINT "Componente ";I;" de B?":INPUT Bí(I) 
NEXT 1 

PRINT "El producto escalar es A.B=";A(1)*B(1)+ 
A(2)*B(2)+A(3)*B(3) 

PRINT "Las componentes del producto vectorial 
son  ("¡A(2)*B(3)-A(3)*B(2);",",A(3»B(1)-A(1)*B(3);"," 
¡A(1)*B(2)-A(2)*B(1);")" 

END 


DIM A(8,5) 
FOR I=1 TO 8 
FOR J=1 TO 5 
INPUT A(I, J) 
PRINT TAB(6*J-5);A(I, J); 
NEXT J 
GOSUB 200 
NEXT 1 
PRINT : PRINT "La tabla con las filas ordenadas 
es:" 


314, 


316. 


100 PFOR I=1 TO 8 
119 FOR J=1 TO 5 
PRINT TAB(6*J-5);A(l, J); 
NEXT J 
149 ¿NEXT 1 
159 GO TO 274 
200 REM SUBRUTINA DE ORDENACION 
210 ¡FOR M=2 TO 5 
220 FOR N=1 TO M-] 
IF A(I,M)< A(I,N) THEN LET X=A(1,N): 
LET A(I,N)=A(I,M):LET A(I,M)=X 
NEXT N 
250 “NEXT M 
260 RETURN 
279 END 


19 DIM A(40):DIM B(40M):DIM M(49) 

20 REM Entrar las notas 

30 ¡FOR I=1 TO 48 

4 | INPUT "Primera y segunda nota”; A(D),B(I) 

50 | LET M(I)=(A()+B(1))/2 

6 | PRINT "La nota media del alumno ";l;" es ";M(I) 
7H ¿NEXT I 

89 END 


19 DIM N(30):DIM B$(6) 

29 PFOR I=1 TO 30 

30 | INPUT N(1) 

40 (IF N(I)<2.5 THEN LET B$(1)=B$(1)+"*" 

50 IF N(D>=2.5 AND N(IX5 THEN LET B$(2)=B$(2)+ 
60 IF N(D)>=5 AND N(I)< 6 THEN LET B$(3)=B$(3)+"%" 
79 | IF N(D>=6 AND N()< 7 THEN LET B$(4)=B$(4)+"x" 
89 E N()>=7 AND N(I)<=8 THEN LET B$(5)=B$(5)+""x" 


IF N()>8 THEN LET B$(6)=B$(6)+"w" 
NEXT 1 

119 [FOR k=1 TO 6 

120 | READ C$ 

139 | PRINT C$; a B$(k) 

149 | PRINT : PRIN 

159 L NEXT k 


169 
170 


Para 


DATA "MD" bid des 1on "gn NP? En 
END 


los ordenadores que funcionan según la nota 


2 de la pregunta 4 de este tema, el programa es: 


322. 


19 
20 


DIM N(30) : DIM a$(6,30) : DIM S(6) 

FOR i=1 TO 30 

INPUT N(i) 

IF N(i<2.5 THEN LET S(1)=S(1)+.1 : 

LET a$(1,S(1))="+*" 

IF N(i)>=2.5 AND N(i)<5 THEN LET S(2)=S(2)+1 : 
LET a$(2,S(2))="x*" 

IF N(i)>>=5 AND N(i)<.6 THEN LET S(3)=S(3)+1 : 
LET a$(3,5(3))="»*" 

IF N(i)>=6 AND N(i)<7 THEN LET S(4)=S(4)+1 : 
LET a$(4,S(4))="x" 

IF N(i)>=7 AND N(i)<=8 THEN LET S(5)=S(5)+1 : 
LET a$(5,S(5))="x" 

IF N(i)>8 THEN LET S(6)=S(6)+1 : 

LET A$(6,S(6))="»x" 

NEXT i 

FOR ksi TO 6 

READ c$ 

PRINT c$ ; TAB(4) ; a$(k) 

PRINT : PRINT 

NEXT k 

DATA "MD", e "Ss "Bo, NS "en 

END 


REM PERMUTACIONES CON 5 LETRAS DISTIN- 
TAS 

DIM A$(5) 

PRINT "Que letras quieres permutar?":PRINT 
INPUT A$(1), A$(2), AS(3), A$(4), AS(5) 

PRINT A$(1),A$(2), A$(3), A$(4), AS(5):PRINT:PRINT 


34.) 


40 [FOR a=1 TO 5 

0 FOR b=1 TO 5 

60 IF b=a THEN GO TO 150 

70 T OR c=1 TO 5 

80 | IF c=a OR c=-b THEN GO TO 1406 

9% FOR d=1 TO 5 

100 IF d=za OR d=b OR d=c THEN GO 
REM 

110 LET e=15-(a+b+c+d) 

129 PRINT ASía);AS(b);AS(c); AS(d); AS(e) 

130 ] NEXT d 

140 NEXT c 

150 NEXT b 

160 ENEXT a 


179 END 


324. 


327. 


WAIT. 


331. 


Tema X 
TE ESPERO EL.21. A LAS 8 


19 INPUT "La palabra es";¡A$ 

15 IF LEN(A$)>24 THEN GO TO 18 
20 LET L=LEN(AS$) 

30 FOR I=1 TO L 

44 En TAB(15-L/2);¡MIDS(AS, I, 1); 
50 | PAUSE(5) 

60 “NEXT I 

70 END 


En algún ordenador hay que sustituir PAUSE por 
Se podría poner también: 


FOR n=1 TO 300 : NEXT n 


19 INPUT "Texto entre comillas"; F$ 

15 IF LEFT$(F$,1) ="p" OR MID$(F$, 1,1)="P""” THEN 
LET i=M0: GOSUB 100 

20 rFOR i=1 TO LEN(F$)-1 

30 | IF MID$(F$,i,1)=" "AND(MID$(F$,i+1,1)="p" OR 
MID$(F$,i+1,1)="P") THEN GOSUB 100 

4 LNEXT i 

100 PRINT 

119 PRINT MID$(F$,i+1,1); 

129 IF MID$(F$,i+1,1)= mon THEN RETURN 


AT 


130 LET i=i+1 
149 IF ¡<LEN(F$) THEN GO TO 110 
159 END 


334. 10M INPUT AS$ 
20 INPUT B$ 
30 LET N=LEN(B$): LET T=P 
40 ¡FOR I=1 TO LEN(AS$)-N+1 
LET C$=MID$(Af$,I,N) 
IF C$=B$ THEN LET T=T+1 
NEXT I 
80 PRINT B$; " se repite ";T;" veces en "¡A$ 
9% END 


335. 19 INPUT "Nombre y apellidos";N$ 
29 LET I$=LEFTS(NS, 1) 
30 [FOR I=2 TO LEN(N$) 
AF MID$(N$,1,1)=" " THEN GO TO 609 
NEXT I 
60 LET M$=RIGHTS$(N$, LEN(N$)-I) 
706 PRINT M$+" "+I$+"_" 


337. 1 PRINT "Introducir los 14 resultados en fila" 
15 LET n=4 . 
20 INPUT A$:PRINT 
3 PRINT "Mi quiniela es:" 
49 INPUT B$: PRINT 
50 FOR i=1 TO 14 
60 ñ MID$(AS$, i, 1)=MIDS$(B$,i,1) THEN n=n+1 
70 “NEXT i 
89 PRINT : PRINT "Hay ";n;" aciertos" 
9% END 


318 


340. 19 REM RAIZ CUADRADA CON 37 CIFRAS 
20 INPUT "Número ";¡a 
30 LET b=INT(SOR(a)) 
40 LET a$-STRS$D) 
50 LET k=LEN(a$) 
60 PRINT "La raíz cuadrada de  ";¡a;" es", 
70 PRINT : PRINT 
89 PRINT b;".": 
90  LET c=a-bx*b 
100 LET d=10MMx*c 
110 LET e=INT((d/10)/(2*b)) 
129 LET f=(2*b*10+e)e 
130 IF f>d THEN LET e=e-1 : GO TO 129 
149 PRIN e; : LET k=k+1 
159 IF k=37 THEN GO TO 180 
169 LET g=d-f : LET c=g : LET b=10*b+e 
179 GO TO 100 
189 END 
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El ordenador como calculadora úsraw.cs resis a 
Operadores aritméticos «se cocrrss ás A De 
Funciones matematicas. 2 .«reserasarisss LU 
Simulación de números aleatori0S +........... E 
Ejercicios resueltos +.....:. AAA IAALA .. 
Ejercicios propuestos +..... ooo... eoooooooo.o.» 


Diagrama de flujo. Iniciación a la programación 


Diagrama: de Eluljo: «tocados ón ss e 
Lenguajes de programación .......... di 
VatLábLesS: 2110 RARA TARO ea 
sentencia. LED USCAD tdt as E 
Sentencia PRINT (Imprimir) ...... a A 
Presentación en pantallá. +0... cido aa 
Numeración de las instrucciones «.z.....«¿e.. sde 
Comando: RUN. .CEGTECLÍ! Gira a a 
Sentencia: END: CL) risa a sta 
Línea, instrucción, sentencia (orden) y comando 
Ejercicios resueltos ...o.oo.oo...o». ca 
Ejercicios propuestos +.......c.ono cooooonosos.» . 
Entrada de datos. Otras sentenciaS ..... A 
Sentencia, INPUT (entrada). «orinar ver 
Sentencia .NEW (nuevo) sosa A 
Sentencia CLS (borrar pantalla) sisi... 


Sentencia. LISE CLISPAEL ira laa a 
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Sentencia REM (comentar) .. 
Sebtencia STOP (parar) orinar iosrada is 
Comando CONT (continuar) .. 


Ejercicios resueltos 
Ejercicios propuestos 


Saltos y Bifurcaciones ... 
Sentencia GO TO (ir a) .... 
Operadores de relación .... 
Operadores lógicos: 


Sentencia IF.. 


AND(y), OR(0), 
. THEN (si...entonces) 
Dialogando con el ordenador 
Ejercicios resueltos 


Ejercicios propuestos 


.........e....<€ ó>q.¿q q>Q n——QeOF£<Fe<e<oó oe... . oso 


.. ... . ..09.0.DPOCO 


...o. . .. o 


"NOT “Caa) id 


BUCLES: DARAN AENA AA 


Sentencia FOR-NEXT 
STEP (paso): 


Incremento de la variable ........ 


Observaciones sobre la sentencia FOR-NEXT ..... 
Sentencia PAUSE (pausa) .. 


Ejercicios resueltos 
Ejercicios propuestos 


Almacenamiento de datos 
Sentencias DATA (datos) y READ (leer) 
Sentencia RESTORE (restaurar) 
Ejercicios resueltos 
Ejercicios propuestos 


SUDEGETNAS riders ais dia 


Sentencias GOSUB(ir a la subrutina) y 


RETURN (volver) 


Funciones definidas por el usuario 
Sentencia ON...GO TO . 
. GOSUB 
Ejercicios resueltos 
Ejercicios propuestos 


Sentencia ON.. 


Variables con subíndice. 


Listas (vectores) 
Tablas (matrices) 


...0.000.0.:0:.0.n.0.un00000. 


Sentencia DIM ........ 


107 
108 
108 
109 
118 


129 
129 
132 
134 
136 
140 
143 
155 


163 
163 
168 
170 
172 
173 
179 


188 
188 
193 
193 
202 


211 


211 
Z1: 
218 
220 
221 
226 


233 
233 
235 


Sentencia. DIM (dimensión) decir csi 


Algunas: Cuestiones practicas «ecucroyerirassa 
Ejercicios resueltos ....oooooooooosoo.o.. ..o.. 
EJercicios propuestos ..«ecssja trae ón ee 
10. Funciones de caderas ...o.....osososocensss.sn. 
Función. LEN (Longitud): ss... enn ictrees 
Subcadenas +oooooo... RR 
Extracción de iboadenas dé una cadena dada 
Fuúción: VAL (valor) rieron CESAR 
Función STR Cadena). sita atea ina 
OSA ERECTA AR 
Función CHR$ (Carácter) s..sis.sa RS 
E-Jjerciclos. tesueltos css cascara asa 
Ejercicios propuestoS +...oooooooooooroooosoo .. 
ANEXO: coooomosrrncrniasonarsaansrnroncn sn ....s 
Sentencia TNEEYS (tecla) eccistss ras 
Sentencias POKE y PEEK ...oooooooooooroooooooo 
Grabacion y carga de programas sasouconsads .. 
FÍCHeroOS: «axis corr ai is 
Ssolución-a: Los ejercicios circa sd 
Lema LT «sonoras s.crrarr ciar re carncs da. 
Tema Li r.«c.sorronrcocancs,s rar 
Tema ITÍ ..o..ononoo9oo.nssaraeir|nn.c.asca. 
Tema 1V ...ooooooonooooronornnnsssnnonoroso . 
Tema V ..oooooooonoooonnoosnnorosrrnnnrnanan»s. 
Tema VI ....... conose.» 
Tema. VIL ¿einer srnaucin scr. erre 
Tema: VITL. 3.020 ica 
Tema 1% .cooonoom..asoroncancnasrnanrasonss»o 


Tema 
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236 
238 
241 
248 


23) 
23) 
256 
2397 
260 
261 
262 
262 
265 
269 


273 
a 
213 
21] 
278 


283 
285 
289 
291 
295 
297 
301 
304 
310 
312 
316 
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